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| Foreword 


The VIC-20 made its first appearance at a 1981 computer show, and though 
it was just a prototype then, it was a forecast of things to come. Commodore 
began delivering VICs in 1981, the same year COMPUTE! magazine started 
supporting the computer. Since then, COMPUTE! Publications has published 
more than half a dozen books devoted exclusively to the VIC, and continues 
to cover the machine in both COMPUTE! magazine and COMPUTE!’s Gazette. 

Now, the editors at COMPUTE! Publications have put together their 
largest collection of never-before-published programs and articles exclusively 
for the VIC. COMPUTE!’s VIC-20 Collection is packed with more than 70 pro- 
grams and articles, each ready to type in and run on your VIC. 

Containing nearly three dozen games, most of which run on the un- 
expanded VIC, COMPUTE!’s VIC-20 Collection will provide hours of fun and 
entertainment for every member of the family. There are sports games to test 
your athletic talents, maze and logic games to puzzle over, and of course 
shoot-em-ups that are just plain fun. 

Programmers will find COMPUTE!’s VIC-20 Collection full of helpful tips 
and utilities. From screen dump programs to relative files to programmable 
characters, even the most experienced programmer will find something use- 
ful and new. 

There’s something here to please every VIC owner. And even if you use 
only a fraction of the more than 70 programs, you'll be more than satisfied 
with this book. All the programs are ready to type in and run—and to make 
program entry virtually error-proof, we’ve included ‘‘The Automatic Proof- 
reader.” If you want to save typing time, you can purchase a disk containing 
all the programs in this book by using the coupon in the back or by calling 
COMPUTE! Publications toll-free at 1-800-334-0868. 


You're sure to find some of the games, utilities, and applications in 
COMPUTE!’s VIC-20 Collection valuable additions to your software library. 
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One 
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Albright 


Page Flip 


Like many other VIC owners, I bought the 8K expansion cartridge soon after 
purchasing my computer. One of the projects I wanted to do involved alter- 
nate screening. The owner’s manual explores only one screen. In my first at- 
tempts I was able to get four screens. Then I discovered four more, giving a 
total of eight. 

There are two memory locations used for screen locations, 36866 and 
36869. The value within 36869 aligns the screen on a 1K boundary begin- 
ning at 4096. The value of 36866 shifts the screen 512 bytes upward in 
memory from the 1K boundary of 36869. 

When changing screen locations you must let the operating system 
know where the screen is. This is the purpose of location 648. The value 
within 648 is the page of memory that the screen resides in. A page is a span 
of 256 bytes. 


The Other VIC Screens 


All addresses must be converted to binary. No matter what legal screen is 
used, its address when converted to binary will be a 13-digit binary number. 
Also, the highest value that can be POKEd is 255. In binary, therefore, the 
POKEd value can be only an 8-bit number. 

Now, here comes the hard part. Refer to page 215, section H, of the Pro- 
grammer’s Reference Guide. 


Bits 4-6 of 36869 are bits 10-12 of the screen’s address. 

Bit 7 of 36866 is bit 9 of the screen’s address. 

Bit 7 of 36869 must be a 1. 

Bit 12 of the screen’s address must also be a 1 (bit 6 of 36869). 


This gives you three bits to play with—bits 5 and 4 of 36869, and bit 7 
of 36866. There are eight possible combinations in which to arrange these 
three bits—eight screens. 

Multiple screens have many potential uses. They can be used for anima- 
tion, varied screen layouts in games, and rapid updating of large, multilayout 
business reports. 

Whenever you use any screen other than the “normal” one, you must 
move the top of your memory area so that it is above the top of your screen. 
This is done with location 44. The first location of your storage area must 
contain a zero. Any changes to the start of BASIC work areas must be done 
before the program is typed in or read from tape. Massive headaches are the 
result of not following this rule. You will also use this rule to create your 
own character sets on the expanded VIC. 


Tutorials 


‘Page Flip” requires at least 8K expansion memory. Before entering or 
loading Page Flip, enter the following line in direct mode: 


POKE 44,34:POKE 8704,0:NEW 


Page Flip 

For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 

18 POKE36869 ,192:POKE648,16 : POKE36866,22 s:rem 12 

12 PRINT" {CLR}{3 RIGHT}{3 DOWN}SCREEN 1":PRINT:PRINT:PRINT"4@ 
96 TO 4697" srem 34 

15 GET AS:IF AS=""THENL5 srem 239 

20 POKE36869 ,192 :POKE648,18 :POKE36866,159 srem 65 

22 PRINT"{CLR}{3 RIGHT}{3 DOWN}SCREEN 2":PRINT:PRINT:PRINT" 46 
G8 TO 5119" srem 34 

25 GET AS:IF AS=""THEN25 srem 241 

38 POKE36869 , 208 :POKE648 , 29 :POKE36866,22 s:rem 7 


32 PRINT" {CLR}{3 RIGHT}{3 DOWN}SCREEN 3":PRINT:PRINT:PRINT"51 

28 TO 5631" srem 25 
35 GET AS:IF AS$=""THEN35 srem 243 
49 POKE36869, 208 :POKE648 , 22 :POKE36866,159 srem 60 


42 PRINT"{CLR}{3 RIGHT}{3 DOWN}SCREEN 4":PRINT:PRINT:PRINT"56 

32 TO 6143" srem 34 
45 GET AS:IF AS=""THEN45 srem 245 
50 POKE36869 ,224:POKE648 , 24 : POKE36866,22 :rem ll 
52 PRINT"{CLR}{3 RIGHT}{3 DOWN}SCREEN 5":PRINT:PRINT:PRINT"61 

44 To 6555" :rem 42 
55 GET AS:IF AS$=""THEN55 srem 247 
68 POKE36869 , 224 :POKE648, 26 :POKE36866,159 srem 64 
62 PRINT" {CLR}{3 RIGHT}{3 DOWN}SCREEN 6":PRINT:PRINT:PRINT"65 

56 TO 7167" srem 51 
65 GET AS:IF AS=""THEN65 srem 249 
70 POKE36869 , 248 : POKE648 , 28 : POKE36866 , 22 srem 15 


72 PRINT" {CLR}{3 RIGHT}{3 DOWN}SCREEN 7":PRINT:PRINT:PRINT"71 

68 TO 7679" srem 61 
75 GET AS:IF AS=""THEN75 srem 251 
80 POKE36869 , 248 :POKE648 , 30 :POKE36866,150 srem 59 
82 PRINT" {CLR}{3 RIGHT}{3 DOWN}SCREEN 8":PRINT:PRINT:PRINT" 76 

80 TO 8191" srem 52 
85 GET AS:IF AS=""THEN85 srem 253 


Peter 
Busby 


Programmable 
Characters 


Are you looking for more than 64 redefinable characters for your VIC-20? Or 
perhaps you have 8K+ memory expansion and, much to your distress, have 
discovered that the capability for high-resolution graphics seems to have dis- 
appeared? Here is a routine that will not only give you 256 programmable 
characters (and more), but will also load automatically into a VIC of any 
memory configuration. 


The VIC changes its memory allocations considerably according to how 
much memory has been added. It is possible to predict, find, and change 
these values as necessary to accommodate the needs of a particular user pro- 
gram. In essence, there are two variants of VICs: ‘“Low VIC” is the standard 
9K version with no more than a 3K module of RAM added. ‘High VIC’ has 
memory expansion of 8K or more plugged in. Table 1 shows the details of the 
pertinent memory pointers involved in reserving space for new character sets. 


Table 1. Initial Values in BASIC Pointers 


Designation Register Low VIC High VIC 
Start of BASIC RAM 44 

Start of variables 46 

Start of arrays 48 HOR i 

End of arrays 50 

Start of strings 52 

End of BASIC RAM 56 | eC 
BASIC screen pointer 648 30 16 


One consideration must be noted in table 1. If the 16-bit address for the 
start of BASIC is obtained (by PRINT PEEK (44)*256 + PEEK (43)), it would 
seem that one byte has vanished. The operating system has set the first byte 
to zero and incremented the pointer. If the start of BASIC is changed, care 
must be taken to set the corresponding initial byte to zero. (Otherwise, enter- 
ing RUN gives a SYNTAX ERROR.) 


BASIC presents little difficulty in changing pointers to accommodate the 
needs of a program, although the procedure for moving itself around under 
program control becomes somewhat unwieldy. The routine proposed here 
will therefore include a preprogram to set up the pointers and registers. 


Tutorials 


The Video Interface Chip adds some rather severe restrictions. The 
screen-memory start location is determined by the values of four bits, three 
in register 36869 and one in register 36866. The latter also determines which 
of two color screen memories is accessed. (It’s possible to alternate screens 
by changing that bit.) The screen memory is restricted to the internal 5K 
RAM of the VIC and must start at the beginning of an even-numbered page 
only. (A page is a block of 256 bytes.) 

The character-set start location is pointed to by the first four bits in reg- 
ister 36869. Each increment here accesses another character set four pages 
long. These locations must also be in the internal RAM or ROM of the VIC. 
See table 2. 


Table 2. Access to Characier Seis 
Procedure: POKE 36869, PEEK (36869) AND 250 OR X where 


X= Start of Character Set 

32768 Normal uppercase 

33792 Reversed uppercase 

34816 Normal lowercase 

35840 Reversed lowercase 

12 4096 Programmable RAM at page 16 
13 5120 Programmable RAM at page 20 
14 6144 Programmable RAM at page 24 
15 7168 Programmable RAM at page 28 


WON © 


In order to create 64 programmable characters in the Low VIC, it is nec- 
essary to drop the end of BASIC and the start of strings (which work back- 
ward through memory from the top) down two pages and change the 
character set pointer to 15: 


POKE 56,28:POKE 52,28:POKE 36869,255 


This can be done within the user program before any strings are defined; 
however, that program will not run on a High VIC. 

The screen memory may be in any two-page block shown from page 16 
to page 30. Redefinable character sets may start only at memory location 
4096, 5120, 6144, or 7168. 

Program 1 will accommodate 64, 128, or 256 redefinable characters 
(with case shifting) in a VIC of any memory configuration. The first program 
is complete in itself and initializes the VIC for subsequent programs. 

Two changes can be made. The variable X in the first line should be set 
to the number of pages of memory required: 2, 4, 6...14. A value of 8 tells 
the VIC to use 256 programmable characters. Also, the filename VIC SET 
DEMO in line 8 should be changed to reflect the name of the next program. 
Change the 8 in that line to a 1 if you’re using tape. 
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Line 1 X is the number of pages to be reserved in RAM. X must be an 
even number between 0 and 14, inclusive. The rest is identifica- 
tion and credit. 

Line 2 Registers V and V—3 point to screen memory. The error routine 
traps out-of-range values in X. 

Line 3 The keyboard buffer counter is set to 2. For Low VICs the end of 
BASIC is dropped for the reserved memory; X is inverted to count 
forward; the Boolean operation results in 1 or 0; the program goes 
to line 5 or ends if the screen doesn’t have to move. 

Line 4 For High VICs the start of BASIC is raised for the reserved 
memory. That initial byte of BASIC RAM is set to 0. Flag F is set 


if X = 2. 

Line 5 The screen moves. All those Boolean operations save some bits in 
the registers and change others according to the value in X. 

Line 6 If the new screen occupies the same RAM as this program, half 


the screen is cleared for the message. 
Lines 7-9 The message is written in the new screen area and the program 
halts, causing BASIC to load and run the next program. 


This procedure for calling the next program effectively performs NEW, 
with all variables set to 0, but with the pointers left at their new values. 
Consequently, there is no restriction within the bounds of memory available 
on the length of the next program. 

The beginning of the second program should include the first five lines 
of Program 2 in order to locate the start of the reserved memory block and to 
keep: the user from attempting to run this program without running the first 


program. 


A Demonstration 
Program 2 demonstrates the general format of the second program. Type it 
in and save it with the name VIC SET DEMO. Then run Program 1, which 
will automatically load and run Program 2. 


Line 100 The identification should reflect the name of the user program 
and credit all authors. 
Line 120 Variables are defined and screen locations found. 
Lines 130 
to 150 The start of reserved memory is found. If the pointers have not 
ae initialized, the error message is printed and the program 
alts. 


Demonstration lines 


Line 151. The character set is displayed by POKEing 256 characters to the 
screen. 
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Line 160 The Video Interface Chip is pointed to the new character set. 
Line 165 The new character set is defined by copying the 
uppercase/graphics set at 32768. 


Program 1. VIC Set 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


1 X=8:AS="{CLR}VIC SET{DOWN}" - srem 144 
2 PRINTAS : V=36869 : I FXANDNOTL4THENP RINT" { DOWN} IMPROPER X":END 
srem 51 
3 POKE198 ,2 :IFPEEK( 56 )=38THENPOKE5S56 , 30-X : X=1 4-X :ON( XAND2)/2GO 
TO5 sEND srem 167 
4 POKE44,18+X : POKEPEEK( 44)*256 ,@:F=(X=2) srem 34 
5 POKEV, PEEK(V) AND2070R4* (XAND12) :POKEV-3 , PEEK( V-3 ) AND1270OR64 
*(XAND2) :POKE648, 16+X s:rem 228 
6 IFFTHENAS=MIDS (AS ,2) :FORF=9T0263 : POKEPEEK ( 648) *256+F, 32 :NEX 
T:PRINT" {HOME}"; srem 28 
7 POKE 36879,15:PRINT" {CLR} {YEL}":POKE 631,13:POKE 632,13 

srem 198 

8 PRINTAS :PRINT" { BLK} { DOWN} LOAD"; CHRS(34);"VIC SET DEMO"; CHRS 
(34)3",8":PRINT"{5 DOWN}RUN": PRINT" {HOME }" srem 166 

9 END srem 16 


Program 2. VIC Set Demo 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


Some lines of this program require keywords to be abbreviated so that they will not exceed the four-screen-line 
limit. See Appendix B. 


199 PRINT"{CLR}{BLK}{8 SPACES}VIC SET{7 SPACES}{RVS} 


{4 SPACES}DEMONSTRATION{5 SPACES }" srem 76 

120 PAGE=256 :VIC=36866 : COLOUR=37888+4* ( PEEK( VI ) AND128) :SCREEN 

=PEEK(648):POKE VI+13,222 srem 82 

130 CHRSET=PEEK(56) :sHIGH=SC:IF CH=HI THEN CH=CH+2:HI=32 os 
srem 

149 IF CH>32THEN CH=16 srem 176 
15@ IF CH=HI THEN PRINT"{3 DOWN} {RVS}LOAD{OFF} AND {RVS}RUN 

{OFF} ‘VIC SET' FIRST, PLEASE":END srem 124 

151 FORI=9TO1L5 :FORJ=@TO15 : POKESC*PA+157+J* 22+1,J+1* 16 : POKECO+ 

157+J* 22+1, INT( RND(@)*8) :NEXT:NEXT srem 237 

168 POKE VI+3,PEEK(VI+3)AND 248 OR (8+CH/4) srem 14 

165 FOR I=(HI-CH)*PA-1TOOSTEP-1 :POKE CH*PA+I , PEEK(32768+I1) :NE 

XT s:rem 229 


Lane 


Mixing Text and 
Graphics Characters 


The VIC-20 has two independent character sets, graphics and text. The 
character set pointer can point to only one set at a time. So you can use only 
one character set at a time, right? Wrong! You can use redefined characters 
and copy the needed graphics and text characters into user memory. This 
method has two problems: It allows use of only a subset of both character 
sets and eats up 512 bytes of program RAM. There is however a solution. 

The VIC chip has a raster beam register. This register represents where 
the VIC is drawing on the screen at any given moment. The trick to mixing 
character sets is conceptually simple. First, POKE the character pointer to one 
set, wait until the scan (raster) reaches a certain point on the screen, POKE a 
different character set pointer, delay a short time, and then change back to 
the original character set. This procedure is repeated over and over, and dif- 
ferent parts of the screen will have different character sets on them. Run the 
program to verify this for yourself. 


The Challenge 

The BASIC program is crude at best. It uses the WAIT statement to syn- 
chronize the program and the scan. You won't have a fine adjustment where 
the screen division takes place. However, with machine language you could 
control the division to within a line or even a character. You could even per- 
haps change character sets several times during the scan to create several 
zones. 

A further challenge would be to use this technique to mix redefined 
characters and ROM characters. The screen memory pointer could also be 
switched in harmony with the scan to create split-screen effects. 


The Experiment 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 


1@ REM PROGRAM TO PLACE BOTH ROM CHARACTER SETS ON THE SCREEN 


‘ srem 184 
26 A=36868 :B=A+1 :C=24f :rem 149 
30 PRINT" {CLR}"; :FORI=O0TO504:PRINT" "+> :NEXT srem 212 
40 PRINT" {HOME }GRAPHIC{HOME}{15 DOWN}TEXT" srem 157 
50 FORI=@TO127 : POKE7724+1,1:POKE80544+1,I:NEXT srem 1 
68 WAITA,128:POKEB,C srem 189 
76 FORI=@0TOL1 :NEXT srem 8l 
88 POKEB,C+2 :GOTO6@ srem 126 


David 
Lowrey 


Relative Files 


_ Disk drives have many advantages over cassette tape—two of them are 
speed and capacity. But the one feature that really separates disk and cassette 
is the disk drive’s ability to perform random access. A tape is, by nature, a 
sequential device. To get to the ninth record, you must first read records 1 
through 8. The 1541 disk drive has the capability to read any of the 683 
blocks on a disk in any order. 

Random access on the 1541 can be very complicated and usually re- 
quires a large amount of code. It is accomplished by telling the disk which 
track and sector you want to access. This specifies a particular 255-byte block 
on the disk. If the records are not that large, you end up wasting space on 
the disk or you must keep track of multiple records per block. You also must 
have a method of remembering where each block is located. 

There is a better way to do all of this. You can use relative files. The for- 
mat of the file is very simple. It consists of fixed-length records, from 1 to 
254 bytes. Each record is individually accessible by specifying its record 
number. These record numbers are assigned sequentially from 1 to the end 
of the file. With relative files you don’t have to worry about tracks and sec- 
tors and buffer positions. Records can span block boundaries so that little 
space is wasted. 

The four major procedures used with relative files are discussed below. 


Creating the File 


The file is created via the OPEN command. The format is 
OPEN I/f,8,ch,““name,L,” + CHRS(rl + 1) 


where 
if = logical file number 
ch = disk channel (2-14) 


name = filename 
rl record length in bytes (1-254) 
Example: 
OPEN 1,8,2,“RELATIVE,L,” + CHR$(80) 

This will create a relative file named RELATIVE. The directory listing 
will create a relative file named RELATIVE and show a file type of REL. The 
records would be 79 bytes long. The last character in the record must be a 


carriage return, CHR$(13). Any attempt to write more than 80 characters 
would produce an error. 


10 
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Selecting a Record 
The record number you want to access is sent to the disk via the command 
channel. The format is 


PRINT# [f,“P” + CHR$(dc + 96) + CHRS§(r]) + CHRS$(rh) + CHR$(rp) 
where 


lf | =logical file number that has been opened to the disk command chan- 
nel (15) 
dc =logical file number for the data channel that has been opened to the 


relative file 
rl, rh = record number in low byte/high byte format 
rp =byte position in the record where you want to start reading 


An easy way to calculate rl and rh is 

RH=INT(record /256):RL= record —(RH*256) 

Example: 

Assume file 8 has been opened to the data channel and file 15 has been 
opened to the command channel. 

PRINT #15,“P” + CHR§(8 + 96) + CHR$(10) + CHR$(0) + CHR§(1) 


This will set the disk to access record 10 on the next access to logical file 8. 

If you attempt to position the file to a nonexistent record, you'll get a 
disk error of 50, RECORD NOT PRESENT. This may be ignored if you are 
adding records to the file, but you shouldn’t attempt to read a nonexistent 
record. 


Writing Records 
Records are written to a relative file using the PRINT# command: 
PRINT #1,“RECORD’”; 
This writes six characters to the current record. 
PRINT #1,“RECORD” 
This abi seven characters (RECORD) plus a carriage return to the current 
record. 

If the record size specified on the OPEN statement is exceeded on a 

PRINT# statement, a disk error of 51, OVERFLOW IN RECORD, is returned. 


The record is truncated to the correct length. Remember that carriage returns 
are counted. 
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| Reading the File 
The records may be read using the GET# or the INPUT# statement. GET# 
reads a byte at a time. INPUT# can be used only to read records of less than 
80 bytes. 

In the following examples, assume that this code was executed: 


10 OPEN 15,8,15: REM OPEN COMMAND CHANNEL 
20 OPEN 8,8,8,” TESTFILE,L,” + CHR$(100):REM OPEN RELATIVE FILE 
25 PRINT #15, “P” + CHR$(8+96)+ CHR$(Low Byte) + CHR$(High Byte) + CHR$(1) 


(write records) 


(position to record) 


100 A$=“” : REM SET INPUT STRING TO NULL 
110 GET#8,C$ : REM GET A BYTE FROM FILE 8 
120 FOR A=1 to 100 

130 A$ = A$ + C$: REM ADD CHAR TO STRING 
140 NEXT 

150 REM END OF RECORD 


This will set the string variable A$ equal to the contents of the current 
record. If there is a disk error, the program will stop. After the record has 
been read, the disk must be positioned for the next record with 


PRINT #15,“P” + CHR$(8 + 96) + CHR§$(Low Byte)+ CHR§$(High Byte) + CHR$(1) 


Odds and Ends 


A CLOSE command must be executed when you are finished with the file. 
The logical file must be closed before closing the command channel. 


CLOSE 8 


This closes file 8 and causes the disk drive to update the directory. 

When a new record is written, all records before the current one are 
checked to see if they have been created. If they haven’t been created, a 
dummy record, containing CHR$(255) as the first byte, is written to hold its 
place. If the first record written is record 100, then records 1-99 will be filled 
in with dummy entries. This could take some time. 

If you try to create more records than the disk will hold, you'll get an 
error of 52, FILE TOO LARGE. Sometimes the VIC will hang up on this er- 
ror. The only way to recover is to press RUN/STOP-RESTORE. A general 
estimate of the number of records that will fit on a disk is 


NR = INT(( # of free blocks on disk * 255) / record size ) — 5 
This is just an estimate and should be verified before use. 
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eatin Programs 


Let’s write a short BASIC program consisting of one line: 
10 REM 

Now let’s save the program to tape: 

SAVE “PROG1” 


Before any of PROG 1 is written to tape, the VIC will write a program 
header which later will give it information on how to load the program back 
from tape. You can look at our program header by typing the following line: 


FOR J=0 TO 9:PRINT PEEK(828 + J);;NEXT 


This displays the first ten bytes from the cassette buffer, and it should look 
like this: 


1 1 16 9 16 80 82 79 71 49 


The first number (1) is the LOAD command; the next two numbers (1 
and 16) are the starting address; 9 and 16 are the ending address; and the 
last five bytes are the ASCII values of the program’s name. The starting and 
ending addresses refer to the position of the program in memory when it 
was saved. It takes two bytes, one low byte and one high byte, to store one 
memory address. To convert the start of the program to decimal, add low 
byte to high byte times 256: 


PRINT 1 + 16 * 256 


This gives 4097, the usual starting point for a BASIC program in an un- 
expanded VIC. The end depends on the length of the program; in our ex- 
ample low byte and high byte convert to 4105. During a SAVE the VIC gets 
its information on the position of the program from the memory stored in 
locations 43 and 44 (the start-of-BASIC pointer) and in 45 and 46 (the start- 
of-variables pointer). Try this: 


PRINT PEEK(43) PEEK(44) PEEK(45) PEEK(46) 


Saving a Block of Memory 
The numbers should be the same as those in the program header. A little 
experimenting proves that if you POKE new locations into these bytes you 
can save memory to tape from almost anywhere in RAM. Let’s try an experi- 
ment. Type 
FOR J=6656 TO 6900: POKE J,1: NEXT 


This line fills memory from 6656 to 6900 with 1’s. Now let’s save this mem- 
ory. First, we must convert the starting and ending addresses into low 
byte/high byte format. Try this: 
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X = 6656:HIBYTE=INT(X /256):LOBYTE =X — HIBYTE*256 


You should find LOBYTE=0 and HIBYTE=26, so we'll adjust our start of 
BASIC to these values by POKEing the low byte value into location 43 and 
the high byte into 44: 

POKE 43,0:POKE 44,26 


Next, substitute 6901 for X and find its low byte and high byte values 
and POKE them into locations 45 and 46. Why did we use 6901 instead of 
the end of memory at 6900? Remember, the VIC uses the start-of-variables 
pointer for the end of memory to be saved. The variables start one byte past 
the end of the program; therefore, the VIC adjusts for this extra byte by not 
saving the last byte of a memory block. This can be annoying for machine 
language programmers who must remember to add one byte to the end of 
their program SAVEs. 

If we have done everything correctly, the VIC thinks it has a BASIC pro- 
gram starting at 6656 and ending at 6900. Now save it with | 


SAVE “ONE”,1,1 
If you’re not familiar with the purpose of the numbers following the 


program name, don’t worry about it now because we'll talk more about it 
later. After the SAVE, reset your BASIC pointers with 


POKE 43,1:POKE 44,16:NEW 
and hold down the RUN/STOP key and hit the RESTORE key. 
Then change the memory from 6656 to 6900: 
FOR J=6656 TO 6900:POKE J,2:NEXT 
Instead of 1’s the memory now contains 2’s. Rewind the tape and type 
LOAD “ONE” 
At the end of the LOAD, a PEEK to any memory location between 6656 


and 6900 will show a 1 and confirm that this method works for saving mem- 
ory to tape. 


Loading to a Specific Spot in Memory 
There is a similar procedure to load a program to any memory address: 
POKE the starting address into locations 43 and 44, then type the LOAD 
instruction as you normally do. One use for this is merging BASIC programs. 
Suppose we want to merge program PROG 1, which we have on tape, with 
PROG 2, which we'll write now: 
NEW 


20 REM 
30 REM 
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Normally, if we loaded PROG 1 at this time, it would erase PROG 2, 
because PROG 1 writes over PROG 2. We can stop this by raising the start 
of BASIC to the end of PROG 2. 


PRINT “LOW BYTE=” PEEK(45):PRINT “HIGH BYTE=” PEEK(46) 


This finds the start of variables at low byte=15 and high byte=16. 
Next, subtract 2 from the low byte (if the low byte was less than 2, you’d 
use low byte + 254 and high byte — 1) and type 


POKE 43,13:POKE 44,16:LOAD “PROG 1” 
When the LOAD is finished, type 
POKE 43,1:POKE 44,16:LIST 


Presto, your merged program. Notice that line 10 is the last line in the 
program instead of the first. This method won’t sort the line numbers in 
ascending order; however, imaginative use of the text editor can usually cor- 
rect the problem. Incidentally, don’t try to relocate a machine language pro- 
gram this way unless the first two bytes of the program are 0’s. 


The LOAD Command 
The first number in the program header is called the LOAD command. If it is 
a 1, the VIC can relocate the program to a different memory location from 
that given in its header. If it is a 3, the VIC must always load the program to 
the location specified in the header. You can determine which LOAD com- 
mand will be put in the header if you write out the entire SAVE structure: 


SAVE “filename”, device number, secondary address 


Everything but SAVE is optional, but you must include a filename and 
device number to declare the secondary address. The filename is just your 
program’s name. The device number for a cassette is always 1. The second- 
ary address determines which LOAD command will be written into the 
header, and it can take one of four values: 


0 = writes a LOAD command of 1 to make a relocatable SAVE. 

1 = writes a LOAD command of 3 to make a nonrelocatable SAVE. 

2 = writes a LOAD command of 1 to make a relocatable SAVE with an end- 
of-tape marker. 

3 = writes a LOAD command of 3 to make a nonrelocatable SAVE with an 
end-of-tape marker. 


If you don’t include a secondary address, the default is 0 (LOAD com- 
mand of 1).This means that the VIC is normally able to relocate any program 
to the start of BASIC. This is a necessary feature for the VIC, because the 
start of BASIC changes position depending on its memory configuration. 

The secondary address can also be used with the LOAD command, and 
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the syntax is identical to that of SAVE. With LOAD, the secondary address 
has one of two meanings: | 


0 = relocate the program to the start of BASIC. 
1 = send the program to the location given in its header. 


However, if the LOAD command is 3 (the SAVE command was given 
with a secondary address of 1 or 3), it will override any instructions given by 
the LOAD secondary address. The LOAD secondary address has effect only 
when the LOAD command is 1. We’ll demonstrate this by saving a BASIC 
program that starts at 6657. First, we must write the program, so type 


POKE 43,1:POKE 44,26:POKE 6656,0:NEW 
This moves the start of BASIC to 6657. Next, write the program: 
10 PRINT “THIS PROGRAM WAS” 


20 PRINT “WRITTEN STARTING” 
30 PRINT “AT MEMORY 6657” 


Now, carefully follow these steps: 


1. SAVE “PROG SA=0”,1,0 

2. SAVE “PROG SA=1",1,1 

3. NEW:POKE 43,1:POKE 44,16:NEW 

4, Rewind tape to the beginning of ‘““PROG SA=0” 


Note in step 1 that we could have omitted the device number and the 
secondary address, and in step 3, we reset the BASIC pointers so that we are 
back at 4097. Now, if you experiment with different secondary addresses for 
the LOAD command, you'll find that PROG SA=1 always loads to memory 
starting at 6657, while PROG SA=0 loads to this location only if you type 


LOAD “PROG SA=0",1,1 


If instead the LOAD’s secondary address is 0, it will relocate to the start 
of BASIC. The secondary address of a VERIFY command works in exactly 
the same manner as it does with the LOAD command. When you try to ver- 
ify program PROG SA=1, it will always compare the program on tape with 
memory starting at 6657, while program PROG SA=0 can be verified with 
memory at that location or at the start of BASIC. 


SAVE ROM? 
In our short exploration of the SAVE, LOAD, and VERIFY commands, we 
have found that they have several limitations. One that we have not yet 
mentioned is the inability of the VIC to save memory to tape from above 
location 32767. Try 


POKE 43,0:POKE 44,192:POKE 45,0:POKE 46,224 
SAVE “ROM” 
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If you decipher the low byte/high byte format, you'll see that we are 
telling the VIC to save memory from 49152 to 57343. This should take sev- 
eral minutes since we are saving a lot of memory (8K). However, after about 
20 seconds the SAVE will terminate. The header has been written to tape, 
but not any of the memory. This means that to save a machine language pro- 
gram from high memory, you must first transfer it down to memory below 
32767. To load it back into high memory, you must reverse this procedure or 
create a relocatable LOAD file with the correct starting address. 


Keith 
schleiffer 


Control over Input 
and Output Format 


I have always believed that computers are infallible. I realize that pro- 
grammers make mistakes, but all the machine does is add up numbers and 
remember where it has put things. It does these two operations much better 
than a person can. Since I was constantly making arithmetic errors in my 
checkbook, I got a computer to catch these mistakes and put me back into a 
life of precision. 

It was quite a shock when my computer told me the checkbook balance 
was $121.69999. 

The explanation is simple: The computer has limited precision on the 
numbers it can manipulate. If the computer repeats a series of steps, like the 
subtraction needed to balance the checkbook, it will enter from beyond the 
limit of precision and make a visible change in the number, This is not an er- 
ror; it’s just an imprecise answer. Although the effect of the inaccuracy is re- 
flected throughout the fraction part of the number, it was introduced at the 
least significant digit, the smallest part of the fraction. To avoid this problem 
we must control the appearance of the output number, concealing any in- 
accuracy from the user. In BASIC, this requires the PRINT USING statement. 
But since the VIC’s version of BASIC doesn’t offer this option, controlling the 
format must become an arithmetic operation. We must actually change the 
value of the number printed out to control the format. 


Whole Numbers 
One way to handle the problem takes advantage of the fact that the com- 
puter is accurate when it operates on whole numbers. When you enter a dol- 
lars-and-cents value, multiply it by 100 and carry out all the manipulations 
in cents; then divide by 100 before output to obtain dollars again. This pro- 
vides a handy solution to the problem in my checkbook program, but there 
are several disadvantages. Alterations like this must be premeditated— 
they’re easiest when you’re writing a new program and can incorporate them 
carefully. They're not what people expect to find, and they can cause confu- 
sion when the program is modified later by someone who doesn’t realize (or 
doesn’t remember) what was done. A far bigger problem with this approach 
is its lack of versatility. It works well enough when you're dealing with dol- 
lars and cents, but if you want outputs that reflect a variety of decimal 
places, this approach may become confusing to manage. 
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Changing Its Looks 
Still, the thought behind this process gives us a place to start. All we really 
want to do is control the appearance of the output, not the value of the num- 
ber the computer uses. To do this, we need only modify the output value, 
not the value in memory. The technique described here simply rounds off 
the number at the desired place. This conceals the tiny error in essentially 
the same manner as the PRINT USING statement would. Let’s start with 
that annoying checkbook balance: 


10 A=121.69999 


The easiest way to locate a place to cut off the undesirable portion is at 
the decimal point, between the whole number and fraction. The first step of 
the rounding process is to multiply by a number large enough to move 
everything you want above the decimal. The simplest way to do this is to di- 
vide by the smallest number you'll expect to see. To round off to cents (hun- 
dredths of dollars), divide by 0.01: 

20 B=A/0.01 


Right now, if we cut off, or truncate, the rest of the number, we’ll still get 
12169 instead of 12170. We must still round off the number. While truncat- 
ing will cut off between 0.99 and 1.0, rounding cuts off between 0.49 and 
0.50. If we add 0.5 to the value, then truncate, we’ll achieve this effect. 

30 B=B+0.5 


The INT function will cut off the fraction, leaving the part we want. 
40 B=INT(B) 
To move the decimal place back where it belongs, multiply by the same 
value that we divided in the first step: 
50 B=B*0.01 
And output the result: 
60 PRINT B 

This can all be handled in a single statement, relying on no extra 
variables: 
60 PRINT INT(A/0.01 + 0.5)*0.01 

Using this technique, we need to change only the output statement and 
will not affect the value of the number the computer is operating on. This 
method works in any application. If we calculate compound interest, the re- 


sults will rarely come out in even dollars and cents, but we can use this ap- 
proach to print out the results in whole cents. This can also be applied to 
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different numbers of decimal places. If we want only the whole portion of a 
number, this statement will round if off: 


20 PRINT INT(A +0.5) 
Or to the thousandth place: 
20 PRINT INT(A/0.001+0.5)*0.001 


Or use a variable to make the output more versatile: 
20 PRINT INT(A/B +0.5)*B 


Aligning Numbers 
Another problem is that we cannot control the space a displayed number 
takes up. Normally, output is lined up with the left margin when it is printed 
out, taking as many columns to the right as needed. For easy reading, a col- 
umn of figures should line up with the right margin so that all the decimal 
places are in the same column. In the checkbook program, if we want the 
numbers displayed in ten columns, including the dollar sign, the decimal 
point, and the negative sign, we need to figure out how many spaces to print 
before the number to be sure that the decimal points line up. To do that we 
need to figure out how big the number is. 


5@@ BS=STRS(INT(A/@.014+0.5)*8.@01):BL=LEN(BS):IF BL<4 THEN 520 
519 IF MIDS(BS$,BL-3,1)="." THEN 55@ 

528 K=@:FOR L=1 TO BL:IF MIDS(BS,L,1)="." THEN K=L:GOTO 548 
530 NEXT L:IF K=@ THEN BS=BS+".0@8":BL=BL+3:GOTO 552 

549 IF K=BL-1 THEN BS=BS+"9@":BL=BL+tl 

55@ C=9-BL:IF C<=8 THEN 570 

568 FOR L=l1 TO C:BS=" "+BS:NEXT L 

578 BS="S$"+BS 

580 PRINT BS 

598 RETURN 


This method also allows us to have zeros fill out the columns after the deci- 
mal with trailing zeros. 

Lines 510-540 are used to force the extra trailing zeros. The advantage 
of this string approach is that we can edit the output number with more 
versatility, for instance, by eliminating the sign and printing negative bal- 
ances in red, bookkeeping style. Numbers that are too large won’t fit into the 
column we've set up, but they won’t bring the program to a halt, either. 
We'll need extra statements and an extra string variable to assemble the out- 
put, and the output will run a little bit slower. 
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GETing Input 
In addition to controlling the output appearance of the program, we want to 
control inputs as well. 


18 GOSUB 59@:CS=BS:PRINT CS:END 
582 BS=" " 

510 GET AS:IF AS="" THEN 5108 
528 PRINT AS; 

538 IF AS=CHR$(13) THEN RETURN 
548 BS=BS+AS 

55@ GOTO 514 


This is a big improvement over the INPUT statement and will accept a 
string containing any characters. This is one of the fundamentals of ‘user- 
friendly” inputs. A user-friendly program is not just cute messages; the most 
important part of the concept is to help the user reduce work and avoid 
making mistakes. The simplest level is to double-check an input number to 
verify that it fits the desired range. A more effective technique is to limit the 
characters that can be input so that only the correct characters (in this case, 
digits) and only the right number of characters can be entered. For the 
checkbook program, we would type in the amount of the transaction, then 
hit the C, D, or B key to indicate a check, deposit, or bank charge. All other 
characters can be ignored. 


18 GOSUB 59@:C=VAL(BS):PRINT C:END 

228 REM BRANCH TO AN ACCOUNTING FUNCTION BASED ON THE VALUE OF 
F 

500 BS=""sF=8:PRINT "S"; 

51@ GET AS$:IF AS="C" AND BS$<>"" THEN F=1:RETURN 

52@ IF AS="D" AND BS<>"" THEN F=2:RETURN 

538 IF AS="B" AND BS<>"" THEN F=3:RETURN 

548 IF (AS>="@0" AND AS<="9") OR A$="." THEN PRINT AS; :BS=BS+A 
$ 

55@ GOTO 519d 


This technique is called masking, because it works just as though a mask 
had been placed over most of the keyboard. Line 540 allows the computer to 
see only the keys we permit. After return from this routine, we use the VAL 
function to find the input value, and F tells us which arithmetic routine to 
follow. There is one more key we need to be able to use, INST/DEL. The 
problem is that if we just include the delete character in the string, then the 
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VAL function won’t see the complete number even though it is displayed 
properly on the screen. Adding another line: 


535 IF A$=CHR$(20) THEN B$=LEFT$(B$,LEN(B$)—1):PRINT A$; 


will cut off the last character of the string rather than leaving the delete 
character in the string. By masking out the other characters, we have estab- 
lished control over the input value without having to check the value itself, 
thus limiting the possibility for mistakes. 

One drawback to the GET statement is that the cursor is not activated. 
This can lead to uncertainty at times. 

We have discussed some ways to control the format of output to make it 
more readable. These two concepts, improved readability and reduced 
possibility of mistakes during user input, are an important part of user- 
friendly programs. 
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VIC Tricks 


Working on machines like the VIC-20 that have limited amounts of memory 
is challenging. For me, most of the fun is in seeing how little memory I can 
make a program fit into. This endeavor can be advantageous when working 
on programs that need all the room they can get. File handlers are a good 
example. With that example in mind, here are five techniques that have more 
than an academic value. 


Trick 1 
This trick is for use with nested FOR-NEXT loops. The NEXT statements 
have to be consecutive. None of them other than the first one can be 
branched to. If these requirements are met, the NEXT statements can be 
combined. 


10 FORI~1TO10:FORJ = 1TO10:FORX =1TO10:PRINTI;J;X:NEXTX:NEXTJ:NEXTI 
memory usage = 65 bytes 


This is how the above line looks with the NEXTs combined into one 
statement: 


10 FORI~1TO10:FORJ = 1TO10:FORX =1T0O10:PRINTI;J;X:NEXTX,],I 
memory usage = 63 bytes 


You save one byte for every NEXT statement that you combine. 


Trick 2 


Use as few variables as possible. They can eat up memory very easily. You 
can’t tell how much your program will take merely by doing the FRE com- 
mand when the program is loaded into the computer. This is because the 
computer doesn’t allocate memory for variables until it has to use them. 
Thus, your program will increase in size as it runs. To check the actual size 
of your program, use the FRE command after the program finishes running. 
The best way to use this technique is through organization. One way to 
cut down on the number of variables that you use is to set aside three vari- 
ables to be used only for such temporary information as FOR-NEXT loops. 


Trick 3 


This is something that you shouldn’t do until the program is finished. If you 
aren’t familiar with this technique, it can be quite confusing to use while 
you're writing the program. 

Words—or preferably phrases—that are used more than once can be put 
into string variables. If you use this trick, you obviously can’t use a CLR 
statement in the program without reinitializing the strings. 
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10 PRINT”“WE WILL GO TO THE PARK TODAY”:GOTO50 
20 PRINT“I WILL GO TO THE PARK TODAY”:GOTO50 
memory usage = 79 bytes 


In the beginning of the program, set the variable P$ equal to the phrase 
“WILL GO TO THE PARK TODAY” and then replace this phrase with P$ 
everywhere it occurs. 


5 P$=“WILL GO TO THE PARK TODAY” 
10 PRINT“ WE” P$:GOTO50 
20 PRINT“ I’ P$:GOTO50 
memory usage = 74 bytes 


The more times that you can use P$, the better. You will save a consid- 
erable amount of memory each time you use it. In this case, you'll save 
about 24 bytes each time after the first 2 bytes. The total amount of memory 
saved is dependent on the length of the string and the number of times that 
you use it. 


Trick 4 


This is a technique that I picked up recently. It has the interesting quality of 
being next to impossible to use. It involves breaking a PRINT statement in 
half. Normally, if you had a PRINT statement that was longer than 87 
characters, you would break it into two separate statements with the first 
ending with a semicolon. 

If there is a TAB or a SPC statement in the PRINT, break it there, thus 
eliminating the need for a semicolon. The first example shows one of the tra- 
ditional ways of breaking a PRINT into two separate lines. 

10 PRINT“’HERE I STAND” TAB(9)”“AND”; 
20 PRINT” I AM” Y “YEARS OLD” 


The next example shows how the first example can be rewritten so that 
the semicolon is unnecessary. 


10 PRINT”’HERE I STAND” TAB(9) 
20 PRINT“ AND I AM” Y “ YEARS OLD” 


If you compare the first example with the second, you will notice that 
the AND is separated from the I AM in the first example, and thus requires 
two more quotation marks. The total memory saved is three bytes. You save 
one for the semicolon and two for the two quotation marks not used. 


Trick 5 


With this trick, we enter into the realm of useful POKEs. Have you ever 
wanted to write a program that was too big for your VIC? Like a series of 
adventure games where a game should be played only after the previous one 
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is completed? If so, the following POKEs will come in handy. POKE 198,1 
then POKE 631,131, and your VIC will both load and run the next program 
on the tape. 

These two POKEs do the same job as the SHIFTed RUN/STOP key. As 
with the RUN/STOP key, words will be printed on the screen. If you don’t 
want anything printed on the screen, the easiest thing you can do is to 
change the cursor color to match the screen color. You'll still have words 
printed on the screen, but you won’t be able to see them. You will also have 
to place the cursor on a line where there is nothing printed to avoid getting a 
SYNTAX ERROR. With this in mind, try it out in the program before you 
change the cursor color. 
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| screen Scroll 


These two routines will scroll a screen display left or right. They are written 
for the unexpanded VIC, but will work with 3K expansion. Because of the 
speed required to accomplish scrolling, they were written in machine lan- 
guage (ML). 

The routines work somewhat like the scrolling that occurs when printing 
to the screen, except everything scrolls left or right. A major limitation of 
these routines is that they scroll only about one half of the screen (11 lines). 
This actually is not a big disadvantage since, in many games, you don’t have 
to scroll the whole screen, and, in fact, you may want some things to stay 
put (such as a player’s score). Also included are simple instructions for 
modifying the programs so that they scroll whatever “block” of the screen 
you desire. 

To use Programs 1 and 2, just type them in as shown. When they are 
run, the ML portion will be POKEd into memory (in the cassette buffer). 
Now you can POKE or PRINT anything on the screen (in program mode) as 
an initial “setup” and call the routine by SYS828; everything on the first 11 
lines of the screen should scroll over one space. 

As the programs are written now, everything is in white, so if you 
PRINT your initial setup, be sure it is done in white. You can use other col- 
ors, but in your setup you have to POKE these colors into the color matrix. 
Also, you'll have to use the same color in each individual row. For example, 
if you want the top row to be in red, you would POKE locations 38400— 
38421 with 2, PRINT (or POKE) the first line in red, and then call the rou- 
tine. Of course, before you call the routine, you could also set up the other 
rows using the same method. 

Here is a very basic use of the programs: In a game, you can have an 
initial setup routine as described above. Then call the routine with SYS828. 
After everything has scrolled over one space, POKE the empty spaces (on the 
edge of the screen) with whatever you want. Repeating this process of calling 
the routine and then POKEing the empty spaces can result in a nice scrolling 
display. Append Program 3 to Program 1 or 2 for a demonstration. 


Program 1. Scroll Right 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 


9 POKE3,11 srem 41 
10 FORT=828T08 28+60 srem 81 
26 READA: POKET,A:NEXT s:rem 98 
25 DATA 169,28,133,1,169,21,133,2 srem 75 
27 DATA 166,1,164,2,208,17,162,9,169,32,157,90,30,138,24,195,2 

2,178,281 srem 93 
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38 DATA 220,208,242,96,189,9,39,153,8,390,138,24,195,22,170 


:rem 15 
40 DATA 168, 298,198,3,165,3,208, 237,169,19,133,3,198,1,198,2, 
76,68,3 :rem 33 
Program 2. Scroll Left 
For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 
9 POKE3,11 :rem 41 
19 FORT=828T08 28+62 :rem 83 
20 READA: POKET,A:NEXT :rem 98 
25 DATA 169,1,133,1,169,8,133,2 :rem 231 
27 DATA 166,1,164,2,192,21,208,17,162,0,169,32,157,21,38,138, 
24,195,22,179,2081 srem 231 
30 DATA 226,208,242,96,189,9,30,153,9,30,138,24,195,22,179 
s:rem 15 
49 DATA 168,136,198,3,165,3, 208, 237,169,11,133,3,238,1,234,2, 
76,68,3 :rem 16 
Program 3. Scroll Demo 
For mistake-proof program entry, be sure to use ‘‘The Automatic Proofreader,” Appendix C. 
5@ PRINT" {BLK}":PRINT"{CLR}";: :rem 217 
60 POKE36879, 93 : FORT=7689+39720TO7899+ 30720: POKET ,@:NEXT 
:rem 41 
76 PRINT"{2 SPACES}VIC-2@ SCROLLING" srem 86 
13@ PRINT"{3 DOWN} PRESS ANY KEY TO SEE" :rem 118 
17@ PRINT"{2 DOWN}{4 SPACES}SCROLL WORK{6 SPACES}" :rem 157 
188 GETAS :IFAS=""THEN18@ srem 85 
190 FORT=1T0O39 :SYS8 28 : FORG=1TO100 : NEXT: NEXT :rem 32 
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ape search 


“Help! lll never find that program! It’s on one of these tapes in this pile...” 

Does this lament sound familiar? There is a way to speed up locating 
your data files and program files. Can this program help unravel the mystery 
files? 

As more and more programs are stored on tape, that collection of tape 
cassettes rapidly increases. Some cassettes are used more often than others. 
Users tend to forget what information is stored on seldom-used cassettes. 
The question was put to me, ‘Short of loading every program on every cas- 
sette, how can I find out what is on a tape cassette?” 

It is a perplexing problem to say the least. Many users know that data 
files cannot be loaded into memory and executed in the same manner as a 
program file. This aspect of tape storage presents the problem of identifying 
the type of file stored on tape as either data or program file. Finally, a pro- 
gram which looks promising to VIC owners may not be able to be loaded 
into an unexpanded VIC. Is it possible to know the memory required to load 
a program file before an attempt is made to load it into memory? 


Tape Header 
Programming the VIC by Raeto Collin West (COMPUTE! Books) contains a lot 
of useful information about tape storage, including the tape header. When a 
file is written to tape, an identification header is written that precedes the file 
information. The header contains information to identify the file as a pro- 
gram or data file, the load address of the file, the end address of the file, and 
the name of the file, if any. The memory requirement of the program can be 
calculated from the load and end address by subtraction. 

When a tape file is accessed by either LOAD or OPEN, the header of the 
file is placed into the cassette buffer of the computer. The cassette buffer is at 
memory location 828 and occupies 192 bytes of memory, of which 191 bytes 
are usable. To use the identification information stored in the header, the 
first 5 bytes of the buffer must be PEEKed after the header is loaded from 
tape. This information is processed as follows: 


Byte Contents 
1 Type of file: 
1 signifies program file 
4 signifies data file 
23 Load address of file stored in low byte/high byte order 
4,5 End address of file stored in low byte/high byte order 
6-180 Contain name of cassette file, if any (This will contain spaces, chr$(32), if no 
name present.) 
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The Program 

Line 210 opens logical file 1 to the cassette for a read operation. The infor- 
mation from the file header is placed into the cassette buffer. Lines 220-240 
PEEK the value contained in the first 5 bytes of the cassette buffer. These 
values are assigned to the single array, A. Lines 310 and 320, respectively, 
calculate the load address and end address of the file. Lines 340-390 PEEK 
the name of the file one character at a time, until 25 bytes of the name have 
been determined or until two spaces have been encountered in the name. 
The name is highlighted when it is printed. 

Most BASIC program files will have the load address of 4097. Data files 
will have their load addresses as the start address of the cassette buffer. 

I have used the above routine extensively with my students at school. It 
has been a valuable utility for searching tape files. 


Tape Search 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 


188 DIM A(18):COUNT=@ srem 1502 
195 PRINT" {CLR}":PRINTCHRS(18);"{5 DOWN}THIS ROUTINE WILL LOA 
DAND EXAMINE SUCCESSIVE" srem 232 
286 PRINTCHRS(18);"FILES AS ENCOUNTERED ON TAPE CASSETTE 
:rem 157 
202 PRINTCHRS(18);"{2 DOWN}PRESS ANY KEY :rem 185 
204 GETRS:IFRS=""THEN 204 srem 113 
285 PRINT"{CLR}{5 DOWN} INSERT TAPE CASSETTE IN DRIVE. 
srem 200 
206 PRINT"TOUCH {RVS}RETURN{OFF} KEY TO CONTINUE." :rem 143 
268 GET CS:IF CS="" THEN 208 :rem 91 
210 OPEN1,1,@ srem 175 
220 FOR I=8 TO 4 s:rem 8 
238 A(1I)=PEEK(828+1) srem 57 
240 NEXT I srem 30 
256 IF A(@)=1 THEN PRINT"{CLR}{2 DOWN]FILE TYPE: PROGRAM":GO 
TO 300 :rem 197 
268 IF A(@)=4 THEN PRINT"{CLR}{2 DOWN}FILE TYPR: DATA": 
srem 255 
300 REM *** CALCULATE LOAD ADDRESS/END ADDRESS :rem 181 
318 PRINT" {DOWN}LOAD ADDRESS IS:";A(1)+(A(2)*256) :rem 119 
328 PRINT" {DOWN}END ADDRESS IS:";A(3)+(A(4)*256) srem 51 
330 PRINT" {DOWN}FILE NAME IS:"; srem 202 
348 FOR I=833 TO 859 srem 235 
358 IF PEEK(I)=32 THEN COUNT=COUNT+1 srem 98 
368 IF COUNT>1 THEN CLOSE1 :GOTO0399@ srem 5 
378 PRINT CHRS$(18);CHRS(PEEK(I1)); srem 105 
380 NEXT I: srem 93 
398 PRINT srem 41 
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REM *** CALCULATE SIZE OF MEMORY ALLOCATED TO PROGRAM 

:rem 113 
IF A(@)=4 THEN 450 srem 31 
PRINT" {DOWN}MEMORY ALLOCATED TO FILE:"; :rem 18 
PRINT( (A(3)+(A(4)*256) )-(A(1)+(A(2)*256)))+1;" BYTES" 

srem 62 
PRINT "{4 DOWN}MORE?" srem 32 
GETJS:IF JS="""THEN 460 srem 195 
IF JS=CHRS(89) THEN 205 srem 94 
END srem 115 
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IMove X 


Whether I’m writing an arcade-style game or an educational program, a com- 
mon subroutine that I find handy is the ‘Move X” utility program. This pro- 
gram moves a flashing X anywhere on the screen and can check to see if the 
fire button has been pressed. 

This form of input to the computer has several advantages over typing 
something in by using the keyboard. First, it is quicker and a much more 
natural way to interact with the computer. Second, small children can learn 
to use it almost immediately, unlike the typewriter keyboard. 

This utility program has several important features: It is easy to change 
the character to be displayed as well as its color. The flashing X (or whatever 
character you choose) cannot leave the screen. If you move the X over an- 
other character already on the screen, it will restore that character and color 
back to the screen after the X moves somewhere else. The line numbers are 
high, so you can append it to the end of an existing program. Another useful 
feature is that you'll always know your screen character and color code po- 
sitions. This is very important whether destroying aliens or having children 
find their way out of a hidden maze. 

This utility program is designed to be user friendly. I hope it will be 
your first step to many new and exciting programs. 


Program Description 
This program will run on an unexpanded VIC and requires a joystick. Type it 
in and save it on tape or disk. When you run this program, you will notice a 
flashing X in the middle of the screen. Using the joystick, practice moving it 
around the screen. Try to move the flashing X off the screen. 


Move X 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


51005 DIM JS(2,2) :DD=37154:BI=PEEK ( 7932) :BC=PEEK (38652) :PA=37 


137 sPB=37152 :OB=86 :CO=2 srem 239 
51906 FORI=@TO2 :FORJ=9TO2:READJS(J, I) sNEXTJ,I srem 86 
51087 DATA7 ,®@,1,6,8,2,5,4,3 s:rem 75 
51909 DEFFNP(S)=( 7932+PX+S) : DEFFNC (S)=( 38652+PX+S) s:rem 117 
51020 PX=0@ :POKE38652 ,CO:POKE7932,0B srem 55 
51038 GOSUB52040 sMV=JS(X+1,Y+1) srem 17 
51035 IFFNP(@) <=77@1 AND (MV=0ORMV=1 ORMV=7 ) GOTO51930 srem 19 
510637 IFFNP(@)=7702ANDMV=7GOTO519394 srem 29 
51940 IFFNP(@) >=8164AND(MV=30RMV=4ORMV=5 ) GOTO5193@ srem 16 
51045 IFFNP(@)=8163ANDMV=3GOT0O519030 srem 26 
51950 IF (FNP(@) =76 80ANDMV=6) OR(FNP(@)=81 85ANDMV=2 ) GOTO51638 
srem 188 
51878 POKEFNP(@),BI:POKEFNC(@),BC: srem 244 
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51186 
51119 
51126 
51139 
51158 
51169 
51178 
51180 
51289 
51402 
51476 
51565 


51578 
52049 
52056 


52866 


Utilities 
IFMV=98THENPX=PX=-22 srem 227 
I FMV=4 THENPX= PX+ 22 srem 230 
IFMV=6 THENPX=PxX-1 srem 184 
I FMV=2 THENPX= PX+1 s:rem 179 
IFMV=7 THENPX=PX-23 srem 246 
I FMV=1 THENPX=PX-21 srem 233 
IFMV=5 THENPX=PX+21 srem 236 
IFMV=3 THENPX=PX+23 s:rem 237 
BI=PEEK(FNP(@) ) s:BC=PEEK(FNC(Q@) ) srem 101 
IFFNP(@)<76800ORFNP(@)>8185 THENGOTO5193@ srem 122 
POKEFNP (@),0B:POKEFNC(@),CO srem 209 
REM THIS IS A GOOD SPOT TO CHECK IF FIRE BUTTON IS DEPR 
ESSED (IF FR=1 THEN...) :rem 218 
GOT05183@4 srem 52 


POKEDD ,127 :S3=-((PEEK(PB)AND128)=@) :POKEDD,255 :rem 224 


P=PEEK( PA) :S1=-((PAND8)=@) :S2=((PAND16)=@) :S@=((PAND4) = 
B) srem 23 
FR=-( (PAND32) =) :X=S2+S3 : Y=S0+S1 : RETURN :rem 183 
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speed Sticks 


After reading Michael Kleinert’s article describing his routine to interface a 
joystick to the VIC-20 (‘Joystick and Keyboard Routine,” COMPUTE!’s Sec- 
ond Book of VIC), I incorporated the joystick routine into a simple game 
which worked quite well. The article also got me interested in machine lan- 
guage, and during my reading I found some references concerning the use of 
the 6522 Versatile Interface Adapters (VIAs), which showed me how to ex- 
pand the routine to provide for diagonal control by the joystick. 

Briefly, each 6522 VIA contains two registers, or ports (A and B), which 
are used for either input or output. Each port consists of eight bits which 
contain the input/output information. The data direction (input or output) of 
each bit is determined by the VIA’s Data Direction Register (DDR). To set a 
bit of a port to input, you must set the corresponding bit of the DDR to 0. 
For example, to set bit 1 of port A to input and leave the other bits set to 
output, a BASIC program would POKE 253 (binary 11111101) into the ad- 
dress of the DDR for port A. If a switch is on, the corresponding bit of the 
port will be 0. 

Program 1 is a listing of a routine which loads the joystick routine start- 
ing at memory location 7168 ($1C00). The first two statements of the pro- 
gram protect the top 512 bytes of user memory, into which the machine 
language routine is loaded. 

The calling program should perform the following functions: 


1. Load the machine language routine. 

2. Call the routine with a SYS 7168 statement. 

3. Get the direction data from location 7424 ($1D00) with a PEEK(7424). 
4. POKE the character into the new location. 


Program 2, when added to Program 1, gives a demonstration of how the 
routine is used. It also gives an example of using the VIAs in a BASIC pro- 
gram. In this case the fire button in the joystick is tested to see if it is being 
pressed, and the color is changed through a set sequence if it is. 


Program 1. Speed Stick 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,”’ Appendix C. 


1 POKE52,28:POKE56, 28 :RP=@:DIS=0 :CO=0 srem 208 
2 FORI=@0@TO60 : READN: POKE7168+1,N:NEXT :rem 34 
90608 DATA169,28 :REM S1C@@ LDA #S1C srem 187 
9881 DATA133,2 :REM $1C®02 STA S$@2 srem 95 
9802 DATA169,5@ :REM S$1C@4 LDA #S$32 srem 173 
9903 DATA133,1 :REM S$1C@6 STA S@1l s:rem 99 
99084 DATA169,@ :REM S$1C@8 LDA #S92 srem 121 
9805 DATA168 :REM S1COA TAY srem 156 
9986 DATA17@ :REM S1C@B TAX :rem 150 
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9907 DATA141,19,145 :REM S$1C@C STA $9113 :rem 223 
9088 DATA169,127 :REM S1COF LDA #$7F :rem 18 
9809 DATA141, 34,145 :REM $1Cll STA $9122 :rem 295 
9918 DATA173,17,145 :REM $1C14 LDA $9111 :rem 181 
9811 DATA73,255 :REM $1C17 EOR #SFF srem 238 
9912 DATA41,28 :REM $1C19 AND #S1C srem 143 
9813 DATA24 :REM $1C1B CLC srem 7/72 
9014 DATA196,196 :REM $1C1C ROR ROR :rem 82 
9915 DATA24 :REM S1C1E CLC :rem 77 
9016 DATA14,32,145 :REM S1CI1F ASL $9120 :rem 163 
9817 DATA176,2 :REM $1C22 BCS #$@2 :rem 130 
9918 DATAY,8 :REM $1C24 ORA #S$88 :rem 54 
9819 DATA168 :REM $1C26 TAY srem 152 
9820 DATA169,255 :REM $1C27 LDA #SFF :rem 16 
9821 DATA141, 34,145 :REM $1C29 STA $9122 :rem 208 
9822 DATA177,1 :REM $1C2C LDA (S$@1),Y :rem 58 
9823 DATA141,98,29 :REM S$1C2E STA S1D0@ :rem 127 
9024 DATA9I6 :REM $1C31 RTS :rem 107 
9025 DATA23,1,45,23,22,9,44,23,24,2,46 >REM $1C32 DATA 
:rem 158 
Program 2. Speed Stick Demo 
For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 
3 FP=7680 :CO=@ :CP=38409 :FI=16@ :rem 186 
16 SYS7168: DIS=PEEK( 7424) -23 :rem 102 
26 IFRP+DIS>596THENRP=RP+DIS-586 :GOTO4G :rem 209 
30 RP=RP+DIS: IFRP<@THENRP=RP+5906 :rem 60 
46 POKE7689+RP,102 :POKE38406+RP,CO srem 231 
50 IF(PEEK( 37137) AND32 )=@8THENCO=CO+1 : IFCO>15THENCO=8 :rem 126 
66 GOTO1D srem 0 
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Arcade-Style 
Subroutines 


Have you ever watched an arcade game and wondered how all of the action 
appears to happen at the same time? For instance, a fire might flicker in a 
corner, a person walks across the screen, and a bird flies overhead. Anyone 
who’s tried this with BASIC knows that BASIC’s too slow—the action ap- 
pears choppy. Well, with the following machine language subroutines, you 
too can have sophisticated arcade-style action, and you don’t have to under- 
stand machine language. 

I'll show you two techniques that can be added to your basic game— 
alternating characters and horizontal motion. Both techniques apply the 
interrupt-driven subroutine which appears to work concurrently with BASIC. 


Alternating Characters 
This technique allows you to place any character anywhere on the screen 
and replace that character with a second one of your choice. This repeats 
indefinitely. You can also control the frequency with which characters alter- 
nate. Type in Program 1 and save it before running. 

If you typed everything correctly, you will see the letters A and B 
alternating very rapidly in the upper-left corner (screen position 7680). 
Now, let’s see how you can make your own alternating characters. 

First, select where you want to place your character. Use the following 


table, where x is your screen location, to determine which values to place in 
lines 300 and 400. 


Desired Screen Column A Column B 

Location Line 300 Line 400 
7680 to 7935 x— 7680 30 
7936 to 8185 x— 7936 31 


For example, let’s say you select the upper-right screen corner, location 
7701. In line 300, replace 0 with 21 (7701 — 7680). Line 400 would then 
remain with a value of 30. 

Second, select which characters you want to alternate and place one in 
location 1 (line 600) and the other in location 2 (line 700) using screen dis- 
play codes. For instance, if you want to alternate an up arrow with a back 
arrow, place POKE 1,30 and POKE 2,31 in lines 600 and 700, respectively. 
(For special effects, use programmable characters. These are explained in 
your Programmer's Reference Guide.) 

Third, adjust the frequency of the alternating characters. This is accom- 
plished by POKEing various numbers in locations 37158 and 37159 (lines 
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900 and 1000). Try 37158,255 and 37159,100. As a rule of thumb, higher 
values in 37159 will slow the frequency, and vice versa. 

A disassembly follows for those who are interested in machine lan- 
guage. This should not be typed. 


LDA $01 
STA $1E00 
LDX $02 
STA $02 
STX $01 
JMP $EABF 


Horizontal Motion 
This routine allows you to move any character from the left side of the 
screen to the right, continuously. You pick the character, the original screen 
location, and the speed. Type in Program 2. In the DATA statements, you 
will see variables X, Y, and Z. Substitute the following values each time the 
variables appear: X=0, Y=30, Z=1. Save the program and run. 

If you typed in everything correctly, you will see a character (the letter 
A) moving across the screen continuously. Now, let’s see how you can pro- 
gram your own horizontal motion. 

First, select the initial screen location. Next, go to the previous table 
and determine the values for columns A and B. Set the variables X and Y in 
the DATA statements equal to columns A and B, respectively. 

Second, set the variable Z equal to your character code. 

Third, adjust the speed with various values in locations 37158 and 
37159 in lines 600 and 700. 

For those of you who are interested, a disassembly follows: Again, do 
not include this in your program. 


LDA $01 
TAX 
LDA #$20 
STA $1E00,X 
INX 
CPX #$15 
BEQ New 
LDA #$01 
STA $1E00,X 
STX $01 
JMP $EABF 
New LDA #$01 
TAX 
STX $01 
STA $1E00,X 
JMP $EABF 


39 


Utilities 


some Final Comments 
These routines will place a white character in the specified screen location. 
That’s why I have chosen a black screen. If you change the screen color to 
white, be sure to color the area of character movement. 


The machine language is independent of BASIC and will continue even 
after BASIC ends. To stop, hit RUN/STOP-RESTORE at the same time. 


Program 1. Alternating 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 


198 FORI=828T0841 :READA: POKEI ,A:NEXT srem 15 
2008 DATA165,1,141 srem 193 
300 DATAD srem 221 
490 DATA39@ srem 17 
560 DATA166,2,133,2,134,1,76,191,234 s:rem 17 
688 POKE1,1 srem 83 
700 POKE2,2 srem 86 
800 POKE37166,64:POKE788, 60 :POKE789, 3 :POKE37166,192 :POKE36879 

2 srem 142 
990 POKE37158, 255 s:rem 152 
18898 POKE37159,255 srem 193 
1190 GOTO119@4 s:rem 189 


Program 2. Moving 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,”” Appendix C. 


1908 FORI=828T0861 :READA: POKEI ,A:NEXT :rem 17 
2606 DATA165,1,1790,169,32,157,X,Y,232,224,21,240,19,169,2Z,157 

s:rem 24 

306 DATAX,Y,134,1,76,191,234,169,2Z s:rem 34 

496 DATA1790,134,1,157,X,Y,76,191,234 srem 94 
596 POKE1,1:POKE37166,64:POKE788, 60 : POKE789,3 : POKE37166,192:P 
OKE36879,8 :rem 128 

698 POKE37158,255 :rem 149 
760 POKE37159,255 :rem 151 
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screen Saves 


I had been working on a technique to save a “‘picture” of the screen on tape 
for future reference. In my attempts to do so in BASIC, I found it either took 
an excessive amount of time or far more memory than I could spare. 

It wasn’t until I read the article by Sheila Thornton in COMPUTE!'’s Sec- 
ond Book of VIC that I was inspired to use the VIC Kernal routine she dis- 
cusses in her “Block SAVE and LOAD” article. 

Saving the characters that make up a picture is pretty straightforward. 
This is done on the unexpanded VIC by saving the section of memory con- 
taining screen memory (7680-8185). The inability to use the Kernal to save 
memory above location 32766 ($7FFE) makes it necessary to relocate the 
color codes located at 38400-38911 to some place that the Kernal can save. 

Lines 170-190 contain the loop that relocates the color codes by PEEK- 
ing into the old location (OL) and POKEing them into the new location (NL). 
I chose the two pages (512 bytes) just ahead of screen character codes. This 
also is the top of available memory. By doing this I was able to save color 
and characters as one block of memory (7168-8185). Line 120 resets the top 
of arrays and memory pointers to protect this section of memory. 

The 39 bytes of machine code are POKEd into the BASIC input buffer in 
lines 210-240. The pointers for strings and arrays will be moved when the 
Kernal routine LOAD is called. Therefore, in lines 360-380 I’ve stored these 
pointers just behind the machine code in the input buffer, then reset them 
after the SYS command in line 390. This brings the total number of bytes re- 
quired of the input buffer to 43. 

In line 250 I’ve placed the length of the filename in location 0 so that 
the Kernal routine SETLFS can find it. Because I need to know how much 
room is necessary for variables and arrays, I’ve assigned arbitrary values to P 
and V, which will be assigned new values later. I need to know how much 
memory is taken for variables and arrays because the filename must be 
placed where the Kernal routine SETNAM can find it. This is done in lines 
260-290. SETNAM can find it by looking at locations 49 and 50 (top-of- 
arrays pointer). 

Lines 450-470 convert the starting and ending addresses to high 
byte/low byte format and POKE them to available locations at zero page. By 
directing the SAVE and LOAD routines here, we can control what memory 
will be saved or loaded. 

Once the LOAD routine is called, the memory from 7168-7679 can be 
transferred back to color memory. This is done with the loop in lines 
480-520. 


41 


Utilities 


I've intentionally stretched the program out to make it easier to follow. 
It would save several bytes if it was crunched before merging with another 
program. 


Running the Program 

Type in “Screen Saves” and change the 8 in line 540 to a 1 if you’re using 
tape. Save the program before running it. Line 130 allows you to write or 
draw to the screen using the keyboard. Once you have the desired picture, 
press the f1 key to save it. Tape users have about ten seconds to press PLAY 
and RECORD before the computer destroys the picture by printing PRESS 
RECORD & PLAY ON TAPE. The picture is saved using the filename SCN. 
The filename can be changed in line 210. 

The picture can be loaded by pressing £3. You may now alter the pic- 
ture, if desired. 


Screen Saves 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


120 POKE52,28:POKE56, 28 s:rem 41 
130 GETAS:PRINTAS; :rem 64 
149 IFPEEK(197)=39THENE=8186 :GOTO17@ :rem 119 
158 IFPEEK(197)=47THENE=@ :A=1 :GOTO20@ :rem 179 
168 GOTO1 39 :rem 100 
178 NL=7168 :0OL=38408 :A=@ :rem 62 
188 FORM=1TOS11 :rem 117 
198 POKENL, PEEK(OL) :OL=OL+1 :NL=NL+1 :NEXT srem 41 
2900 RESTORE:A=A+l1 :rem ll 
210 B=7168:R=554:NS="SCN" zrem 96 
226 FORT=1TO39:READD :rem 2390 
236 POKER+T,D s:rem 5 
240 NEXT :rem 213 
2586 L=LEN(NS) : POKES,L srem 211 
260 P=1:V=1:S=256* PEEK(5@)+PEEK(49)+L :rem 69 
278 FORT=1TOL srem 49 
286 POKES-T,ASC(RIGHTS(NS,T) ) :rem 214 
290 NEXT :rem 218 
398 SYS555 :rem 49 
318 V=B:P=252 :GOSUB456: I FE=@THEN 3604 z:rem 95 
320 V=E:P=254 :rem 207 
338 GOSUB45@ :rem 175 
348 SYS574 srem 54 
358 GOTO14E :rem 1062 
368 FORT=0TO5 srem 25 
372 POKER+T, PEEK (45+T) s:rem 36 
380 NEXT s:rem 218 
398 SYS584 srem 604 
496 FORT=0TOS5 :rem 20 


POKE45+T, PEEK( R+T) 

NEXT 

IFA=2THEN48@ 

GOTO148 

POKEP, INT(V/256) 

POKEP-1 , V-256* PEEK(P) 

RETURN 

OL=7168 :NL=3840898 

FORM=1T0511 

POKENL , PEEK( OL) 

OL=OL+1 :NL=NL+1 

NEXT 

GOTO14G 
DATA169,1,162,8,160,9,32,186,255 
DATA165,98,166,49,164,50, 32,189, 255,96 
DATA169, 251,166, 253,164, 254, 32,216, 255,96 
DATA169,@,166, 251,164, 252, 32,213,255, 96 


Utilities 


43 


John 
Hollenberg 


ape To Disk 


When upgrading from a cassette drive, new owners of disk drives face the 
daunting task of copying all their tape programs to disk. You could always 
use your tape drive when you need those programs, but once you’ve used a 
disk drive, you quickly get spoiled. It seems unjust to have to go back to 
slow tape LOADs, but equally unfair to have to copy your entire tape library 
to disk. What you need is a program to do this for you. After all, automation 
is one of the strengths of a computer. ‘Tape to Disk,”” which requires 32K of 
memory, can copy an entire tape of programs to disk. All you do is insert a 
disk with room for the programs, insert the tape, press PLAY, and enter a 
SYS command. The machine language works for you. You don’t need to 
understand how it works to use it, though. 

The program here is a BASIC loader that POKEs the machine language 
into high memory. The rest of memory is used to load the programs from 
tape in order to save them to disk. Type in the program and save it—you'll 
probably want a copy for the future. When you run the program, you'll be 
asked to wait while the machine language is POKEd in. It will then give you 
a command to type when you want to start the process: SYS 28672. At this 
point, insert the tape and rewind it. Insert the disk (be sure there’s room for 
the tape programs), and then enter SYS 28672. You'll be asked to press 
PLAY on the recorder, and the process begins. The screen shows each tape 
program being loaded from tape, then saved to disk. You don’t have to do a 
thing. The program doesn’t know when to stop, though. After all the pro- 
grams have been copied to disk, just press RUN/STOP-RESTORE to stop 
the process. Don’t try to exit the program with just RUN/STOP—it won’t 
work. If you get a disk error (flashing red light) during the transfer, you may 
have to rewind the tape back to the beginning of the program that failed to 
transfer, then figure out what went wrong with the disk, before you type 
SYS 28672 again. 

Tape to Disk won't copy machine language programs, copy-protected 
tapes, or any program bigger than 24K. But you'll find it invaluable for copy- 
ing those tapes full of BASIC programs that everyone seems to accumulate. 


Tape to Disk 

For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 

1@ PRINT" {CLR}PLEASE WAIT..." :rem 62 

28 FORI= 28672 TO 28874 :READDC:POKEI,DC:NEXTI srem 140 

38 PRINT"{2 DOWN}JENTER [{RVS}SYS28672{OFF} TO":PRINT" {DOWN }BEG 
IN TRANSFER." :rem 55 

48 DATA 32,146,112,234,234,234,234,234,169,0,162 :rem 48 

5@ DATA 1,160,0,32,186,255,169,8,32,189,255 :rem 66 

60 DATA 169,9,162,1,160,18,32,213,255,32,161 :rem 102 
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70 DATA 112,169,1,162,8,168,255,32,186,255,169 
88 DATA 16,162,65,168,3,32,189,255,173,62,3 
90 DATA 281,4,240,79,2801,16,248,79,173,61,3 


190 
110 
120 
138 
146 
15d 
16@ 
17 
18@ 
196 
200 
210 
220 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


133,251,173,62,3,133,252,174,63,3,172 
64,3,169,251,32,216,255,76,8,112,173 
61,3,133,251,173,62,3,1805,14,133,252 
173,64,3,105,14,141,64,3,169,251,76 
73,112,173,61,3,133,251,173,62,3,185 
2,133,252,173,64,3,185,2,141,64,3 
169,251,76,73,112,96,24,76,87,112,24 
76,112,112,169,255,133,55,169,98,133,56 
32,66,198,32,231,255,96,32,183,255,234 
234,201 ,0,208,1,96,162,0,189,191,112 
32,219,255,232,224,189,208,245,76,8,112 
234, 234,234,13,32,69,82,82,79,82,32 
33,13,13,32,32 
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s rem 


226 


srem 72 
srem 61 


; rem 
> rem 
; rem 
:rem 
-rem 
> rem 
-rem 


202 
167 
143 
113 
149 
253 
183 


srem 71 
srem 26 


:rem 
-rem 
3; rem 


156 
246 
123 


s:rem 86 
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— Dump 


“Super Dump” requires the use of the Super Expander cartridge and adds a 
high-resolution screen dump to the menu of Super Expander function com- 
mands. With Super Dump, the f8 key becomes the Screen Dump key when 
your VIC is in the hi-res, multicolor, or mixed mode, but retains its function 
as the LIST key when in the text mode. 

After entering the program, be sure to save it to tape or disk before run- 
ning: The BASIC part of Super Dump clears itself from memory to make 
room for your programs. After saving, run the program. Within a few sec- 
onds, the screen will blink, and the message READY will appear. Now, try 
entering a graphics program, such as drawing a circle, and then clear the 
screen. Next, hold down the SHIFT key and hit the f8 key. Your program 
will list as usual. Notice that Super Dump is gone. 

Run your graphics program, and when the image is completed on the 
screen, hold down the SHIFT key and hit f8 once again. This time, the f8 
key signals your VIC to send the image of the screen to the printer, where 
it’s copied. 

In your graphics program, if you want to return to the text mode under 
program control, use the GRAPHIC 0 command instead of the GRAPHIC 4 
command. The reason for this is the Super Expander’s system architecture: 
When a program is written with the Super Expander, BASIC memory starts at 
the same location as BASIC memory in an unexpanded VIC, and not in the 
expansion RAM area. When a GRAPHIC command is executed, the Super 
Expander literally picks up the BASIC program and moves it to the expansion 
RAM area, then uses the VIC’s memory for bitmapping the screen. Reenter- 
ing the text mode with the GRAPHIC 4 command transfers the program 
back to the VIC’s memory. With the memory pointers changed by Super 
Dump, the GRAPHIC 4 command has a tendency to mess things up. How- 
ever, reentering the text mode via the GRAPHIC 0 command leaves your 
program in the expansion area, where it agrees with the memory pointers. 
You still have the same amount of memory for your graphics programs it’s 
just in a different location. 


Super Dump 

For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 

18 FORI=3922T04095 :READA: POKEI ,A:NEXT :rem 66 

20 GRAPHIC2:GRAPHIC@ :POKE51,81:POKE52,15:POKE55,81:POKE56,15 
srem 142 

30 KEY8, "SYS3922"+CHRS$(13) :NEW s:rem 200 

40 DATA8,173,200,2,248,7,201,4,2408,3 :rem 254 

5@ DATA76,98,15,76, 237,15,169,9,133,89 :rem 150 

68 DATA133,87,169,16,133,88,169,4,32,17/7 :rem 248 


Utilities , 
786 DATA255,169,90,9,96,32,147,255,169,8 srem 150 
88 DATA32,168,255,162,0,32,185,15,232,224 srem 15 
9G DATA2@,246,16,24,165,87,1905,160,133,87 :rem 18 
19@ DATA165,88,195,9,133,88,76,127,15,169 :rem 29 
119 DATA13,32,168,255,56,165,87, 233,217,133 :rem 123 
128 DATA87,165,88,233,11,133,88,238,89,169 srem 91 
138 DATA23,197,89,208,204,32,174,255,32,231 :rem 121 
140 DATA255,48,96,169,128,133,98,169,1,133 :rem 77 
15@ DATA91,169,9,133,92,168,177,87,37,90 :rem 248 
160 DATA24@,7,24,165,92,181,91,133,92,165 s:rem 17 
178 DATA91,190,133,91,200,192,7,2808, 233,24 s:rem 7 
189 DATA165,92,1905,128,32,168,255,165,99,74 srem 135 
198 DATA133,90,208, 209,96,169,147,32,2198, 255 :rem 189 
2608 DATA162,9,138,157,0,2,232,224,89,298 srem 214 
210 DATA248, 32,156,198 :rem 114 
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Hold a Mirror 


We are all familiar with programs that take information in one form and put 
it out in another. Or programs that calculate data and display it. Here, we 
will look at two programs which allow your computer to take a look at itself 
and tell us what it sees. The first program is a simple disassembler, and the 
second graphically displays the status of the various VIC input devices. 

We are constantly entering programs into our computers and running 
them, usually unaware that what is running our programs is actually another 
program. Locked into the upper 16K of memory are the BASIC and Kernal 
ROMs (Read-Only Memories). These are machine language programs—pro- 
grams written in the binary code that digital computers use to process infor- 
mation. These machine language programs may well be larger than any 
BASIC program we will write for them to run. They control everything we 
can do and—often more frustrating—everything we cannot do. 

We could do more if we knew exactly how the computer works in- 
ternally. Unfortunately, this understanding is hard to come by. BASIC pro- 
grams are relatively easy to understand, because BASIC uses English-like 
instructions such as PRINT and INPUT. But machine language is stored in 
the computer’s memory as numbers which mean little to most people. Before 
we can make use of the multitude of information stored in the computer, we 
must have a translator to turn the numbers into symbols that are meaningful 
to us noncomputers. This is the purpose of the disassembler. 


The Disassembler 
A disassembler is just the opposite of an assembler. Few machine language 
programmers actually program in pure binary numbers any more because the 
task is so tedious. Instead, they use assemblers, utility programs which allow 
them to program machine language in three-letter abbreviations called 
mnemonics. The assembler then “‘assembles” the program—converts it into 
true machine language. A dissassembler reverses the process, translating the 
machine language numbers back into three-letter abbreviations we can more 
easily understand. 

Confused? Here’s a simple example. Let’s say a machine language pro- 
grammer wants to store the number 15 in memory location 36879 (this will 
change the VIC’s screen color to black and the border color to yellow). In 
BASIC, we would use the POKE instruction, like this: 


POKE 36879,15 


When we pressed RETURN, the number would be stored and the screen 
colors would change. Here is the same thing written in machine language 
with an assembler: 
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LDA #$0F 
STA $900F 


LDA # stands for “LoaD Accumulator with the number immediately 
following.” The accumulator is a temporary place for storing short numbers 
(0-255) inside the microprocessor chip that runs the computer. The symbol 
$OF is how the number 15 looks in hexadecimal, a base 16 numbering system 
(don’t worry about this now). 

STA means “STore Accumulator.” It tells the VIC to take the number in 
the accumulator (the number we just loaded it with) and store it at the 
following memory location. The symbol $900F is the hexadecimal equivalent 
of 36879. 

The next thing the programmer would do is use the assembler to “‘as- 
semble” the mnemonics into machine language. Here is what the assembler 
would produce: 


A9 OF 
8D OF 90 


This is what machine language looks like in hexadecimal. Converted 
again to decimal, our familiar base 10 numbering system, the machine lan- 
guage would be stored in the VIC like this: 


169, 15, 141, 15, 144 


Now you know why machine language subroutines show up in BASIC 
programs as DATA statements. The numbers in the DATA statements are 
simply the decimal equivalents of the machine language instructions. 

You should now realize exactly what a disassembler does. It just re- 
converts those decimal numbers back into the mnemonics that we started 
with. 

The disassembler included with this article is particularly suited for the 
VIC, in that it is small and relatively fast. The program first prompts for an 
output device to display the mnemonics. The screen, device 3, is the default. 
Next, it asks for the starting and ending memory addresses in hexadecimal. 
Some computer books have conversion charts in the back if you need to con- 
sult one. The program then proceeds to disassemble instructions between 
these two points. 

Memory locations that are not instructions are output as single bytes of 
data. Sometimes the disassembler will interpret stray numbers in memory as 
instructions, too. In your computer you'll find machine language, ASCII 
strings, keywords, address vectors, program links, and all sorts of infor- 
mation. Consult the table for interesting places to look inside the VIC-20. 
You can also refer to the memory maps in the back of your manuals. Even- 
tually, it may be your pathway into the world of machine language. 
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| Keytest 

This program is a VIC-20 input device diagnostic as well as an excellent 
demonstration of the VIC’s capabilities. Various VIC input devices and their 
status are displayed about the screen. The upper-left corner of the screen 
shows the current status of the joystick and its fire button. 

The positions of the paddle controllers determine the pitch of the bass 
and soprano voices. The paddle buttons will move the center dot of the joy- 
stick display to the right or left. 

The center of the screen contains a display of the VIC keyboard. Normal 
keys are in white, function keys are in yellow, cursor and control keys are 
similarly color-coded. The number keys are colored according to the color 
written on them. 

When a key is pressed, it reverses on the screen. You will have to hold 
down the key and wait a couple of seconds for the screen polling routines to 
see it. Holding more than one key will cause all of them to reverse. By poll- 
ing the keyboard ourselves, we are able to detect multiple keys. The VIC de- 
coding routine would have given us only the highest key pressed. 

You may notice that when you press more than two keys at once, some 
extra keys may light up. This is due to the way the keyboard is built. If you 
have the 8 X 8 table of key rows and columns handy (see “Extended Input 
Devices,” by Mike Bassman and Salomon Lederman, COMPUTE!’s First Book 
of VIC), you will notice that if you press three keys together, the one that 
completes a “rectangle’’ on the chart will light. 

If a letter key is pressed and the right SHIFT key is depressed, the right- 
hand graphics character on the key will appear reversed. For example, press 
A, 5, Z, and X simultaneously, and hold the right SHIFT key down. The four 
card suits will appear. Or hold U, I, J, and K down and press the right SHIFT 
key; a large circle will appear. This trick does not apply to the left SHIFT key 
or left graphics character due to their random arrangement on the keys. 

At the bottom of the screen you see a circle followed by the word TAPE. 
The circle is full if a tape cassette key is down, empty otherwise. 

The first line of the program disables interrupts, so you may have to hit 
RUN/STOP-RESTORE several times to get a response. When typing in Pro- 
gram 2, you will want to change the SYS 0 on the first line to SYS 1, until 
you have it debugged. The program will break if Q, -, STOP, CTRL, 1, 2, 
space bar, or Commodore keys are pressed while you are using SYS 1, but 
you will always be able to regain control. 
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Program 1. Disassembler 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


18 H$="9123456789ABCDEF": DIMRS(255),T%(3) :FORI=3TO@STEP-—1 : T$ ( 


I)=16f1I:NEXT srem 232 
20 PRINTCHRS(147):"6582 DISASSEMBLER":PRINT: FORX=@TO255 : READR 
S$(X) sNEXT s:rem 129 

36 DV=3:INPUT"OUTPUT DEVICE#";DV:PRINT: IFDV<@ORDV> 255GOTO3@ 
srem 91 

40 AS="FFFF": BS="C38A" :GOSUB230:OPEN1,DV,1, "ASSEM.OUT":CMD1 
srem 207 
50 FORPC=STOE:S=PEEK(PC) :A=PC: :GOSUB25@:PRINT" ";:A=S:GOSUB25 
4) srem 162 
68 OPS=RS$(S) :IFOPS=""THENPRINT" .BYTE"; :GOTO19@ srem 55 


76 PRINT" ";LEFTS(OPS,3);" ";:U=ASC(RIGHTS(OPS$,1))-65:rem 142 
88 ONUGOTO199,1190,120,120,130,149,140,1980,150,160,1790,18@ 


srem 118 
90 PRINT"A">: :GOTO19IG s:rem 195 
100 PRINT"#"; :GOTO11@2 srem 197 
118 GOSUB219:GOTO19G srem 178 
120 GOSUB21@:PRINT", ";CHRS(U+85) >; :GOTO19@ s:rem 159 
130 GOSUB2298 :GOTO194 srem 181 
148 GOSUB220:PRINT", ":CHRS(U+82) >; :GOTO19@ srem 159 
150 PC=PC+1:A=PEEK( PC) :A=PC+A+1-—-(AAND1 28) * 2 :GOSUB258 :GOTO19@ 
s:rem 16 
168 GOSUB200:PRINT",X)": s:GOTO1LIO :rem 169 
178 GOSUB200:PRINT"),Y": :GOTO19IOG srem 171 
180 PRINT"(": :GOSUB220:PRINT")"; srem 138 
190 PRINT:NEXT: PRINT: CLOSEDV :END srem 194 
200 PRINT"("; srem 198 
219 PC=PC+1 :A=PEEK(PC) :GOSUB25@:RETURN srem 126 
228 A=PEEK(PC+2) :GOSUB25@ :GOSUB2190:PC=PC+1 :RETURN :rem 41 
230 PRINT"ENTER START,END", "IN HEXADECIMAL": INPUTBS ,AS :GOSUB2 
40 :E=S:AS=BS :rem 243 
248 S=@:FORI=1TOLEN(AS ) :B=ASC(MIDS(AS,1I,1))-48:S=16*S+B+(B>9) 
*7 sNEXT: RETURN srem 170 
250 XS="": FORI=3TOOSTEP-1 :H$=A/T$(1) : IFHS=OANDXS=""ANDI>1GOTO 
270 :rem 18 
260 XS=X$S+MIDS(HS,H%+1,1) :A=A-H%*T3 (I) :rem 213 
270 NEXT:PRINTXS; : RETURN :rem 112 
300 DATA BRKI,ORAK,,,,ORAC,ASLC,,PHPI,ORAB,ASLA,,,ORAF,ASLF,, 
BPLJ,ORAL,,,,ORAD s:rem 38 
316 DATA ASLU,,CLCI,ORAY,,,,ORAX srem 167 
320 DATA ASLG,,JSRF,ANDK,,,BITC,ANDC, ROLC,,PLPI,ANDB, ROLA,,BI 
TF,ANDF, ROLF, , BMIJ srem 180 
338 DATA ANDC,,,,ANDU, ROLU,,SECI,ANDY,,,,ANDG, ROLG,, RTII, EORK 
122¢BORC srem 208 
340 DATA LSRC,,PHAI, EORB, LSRA, ,JMPF, EORF, LSRF,,BVCJ,EORL,,,,E 
ORD :rem 6 
358 DATA LSRD,,CLII,EORH,,,,EORG,LSRG,, RTSI,ADCK,,,,ADCC, RORC 
»,PLAI srem lll 
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368 DATA ADCB,RORA, ,JMPM,ADCF, RORF,,BVSJ,ADCL,,,,ADCD,RORD,,S 


EII,ADCH,,, srem 118 
378 DATA ADCG,,,,STAK,,,STYC,STAC,STXC,,DEYI,,TXAI,,STYF,STAF 
,OTXF, , BCCI :rem 22 
386 DATA STAL,,,STYD,STAD,STXE,,TYAI,STAH,TXSI,, srem 48 
398 DATA STAG,,,LDYB, LDAK, LDXB, , LDYC, LDAC, LDXC, , TAYI , LDAB, TAX 
I,, UDYF, LDAF srem 71 
498 DATA LDXF,,BCSJ,LDAL,,,LDYD,LDAD,LDXE, srem 22 
418 DATA CLVI,LDAH,TSXI,,LDYG, LDAG, LDXH, ,CPYB,CMPK,,,CPYC,CMP 
C,DECC,,INYI;CMPB :rem 183 
420 DATA DEXI,,CPYF,CMPF,DECF,,BNEJ,CMPL,,,,CMPD srem 151 
439 DATA DECD,,CLDI,CMPH,,,,CMPG,DECG,,CPXB,SBCK,,,CPXC,SBCC, 
INCC, , INXI,SBCB srem 139 
4490 DATA NOPI,,CPXF,SBCF,INCF,,BEQJ,SBCL,,,,SRCD,INCD,,SEDI,S 
BCH,,,,SBCG,INCG, | :rem 248 


Program 2. Keytest 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 


On line 10 of this program, change SYS 0 to SYS 1 until you are certain the program has been entered correctly. 


1@ POKE®,126:POKE1 ,96:SYS@:POKE56 , 29 : POKE52, 29: CLR: V=36864 :PO 


KEV+15,1@0 srem 191 

26 DD=37154:SC=7680 :SD=V+19 : PD=V+8 : PA=DD-3 :Q=7424 :M=255 :M1=12 

7:M2=128 :QA=SC-1 s:rem 199 

3@ M=255 :M1=127 :M2=128 :M3=63 :T4=16 :T5=32 :T6=64 :T7=128 :TP=8164 

srem 202 

58 DIMJ%(9),K%(63),T%(7) sFORI=O8TO63 : READJ :K%(1)=(ABS(J)+SC+33 

O@)*((J<G)*2+1) sNEXT s:rem 182 

60 JY=4:3%(9)=46+SC:FORI=0TO2 : FORJ=OTO2 : 3% (JT+I*3 )=1*22+I4+69+S 

C:NEXTJ,I1 srem 159 

70 POKEV+14,15:FORI=@TO7 :T%$(1I)=2f1I:NEXT: DEFFNP(X)=INT( (M-PEEK 

(X))/2)+M1 s:rem 77 

8G Q1l=Q+1 :POKEV+14,15:FORI=QTOQ+15:READJ:POKEL,J:NEXT:rem 115 

98 PRINT" {CLR} {WHT}" srem 219 

100 PRINT" {RIGHT}U*****I", "VIC INPUT" srem 191 

119 PRINT" {RIGHT}-{RED}W{WHT}{4 RIGHT}-" :rem 166 

120 PRINT" {RIGHT}-{RIGHT}{GRN} {WHT} {GRN} {WHT}{RIGHT}-", "DE 

VICE TEST"; — srem 86 

138 PRINT" {RIGHT}-{RIGHT} [{CYN}Q{WHT} [{RIGHT}-" srem 235 
148 PRINT" {RIGHT}-{RIGHT}{GRN} {WHT} {GRN} {WHT}{RIGHT}—" " 

{8 SPACES}" — trem 1 

15@ PRINT" {RIGHT}-{5 RIGHT}-" srem 207 

169 PRINT" {RIGHT}J*****K","Tg8 SPACES}" :rem 74 

170 PRINT"{2 DOWN] {RVS}[22 SPACES}"; srem 216 

186 PRINT" {YEL} {OFF }COMMODORE{ RVS}KK}VIC20{WHT}{4 SPACES} 
{RED} {OFF}Q{RVS} {WHT} "; srem 12 
199 PRINT"{44 SPACES}"; srem 166 
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PRINT "UFR RRKRKKKKKKKKKKKKEKT' « srem 73 


PRINT"— [OFF}<12{RED} 3[CYN}4{ PUR}5{GRN}6{BLU}7{YEL} 8{ WHT} 
96+-£{CYN}{2 SPACES} {WHT} {RVS}RGJ{OFF}{YEL}F1{RVS} {WHT}- 


: s:rem 94 
PRINT"- {OFF}{GRN} {WHT}QWERTYULOP@*f{RED}{RVS}{2 SPACES} 
{WHT} KG} {YEL} {OFF}F3{RVS}{WHT}-"; :rem 151 
PRINT"-{OFF} {RED} {RVS}{PUR} {WHT} {OFF}ASDFGHJKL: ;=[{CYN} 
{2 SPACES} {WHT}{RVS}O [{YEL]} {[OFF}F5{RVS}{WHT}-—";  s:rem 212 


PRINT"-{OFF}{GRN}{2 SPACES} {WHT}ZXCVBNM,./{GRN}{2 SPACES} 
{CYN}{2 SPACES} {WHT} {RVS}KG} {YEL} [OFF}F7{RVS} {WHT}-"; 


:rem 254 
PRINT"-K2 T}IP{OFF}{8 SPACES} {RVS}OK4 T}{4 SPACES}-"; 

a = a trem 113 
PRINT" J¥ RRR RRR KRKKEKKKEKKKKKEKK" @ -srem 56 
PRINT" [DOWN] [OFF] [CYN}WTAPE"; srem 231 
FORR=.TO7 : POKEQ1 , T3(R) :SYSQ:N=PEEK(QA) : P=R*8: ILFR=4THENX= ( 
NANDT6 )+T7 :rem 24 
FORC=.TO7 : Z=K%(P+C) : FORG=ABS(Z)TOG~(Z<.) : W=PEEK(G) ANDM3 

srem 132 
IFNTHENIFT$% (C) ANDNTHENPOKEG , W+X : GOTO380 srem 26 
POKEG ,W :rem 146 
NEXT : NEXT: IF R=3 THENX=T7 srem 45 
GOSU B6900 :NEXT: POKETP ,87+6* ((JANDT6 )=. ) sGOTO30@ srem 24 
POKEDD , M1 :J=( PEEK( PA) ANDM1 )OR( PEEK(PA+1)ANDT7) : LFJANDT5TH 
ENPOKEJ3(9),87:GOTO62@ :rem 128 
POKEJ$(9),81 s:rem 84 
IT=4+3* (( (JAND4)=. )-—( (JAND8)=.))-( (JANDT4 )=T4)4+(J>=T7) 
s:rem 29 
IFI<>JYTHENPOKEJ$(I),81:POKEJ%(JY),T5:JY=I1 s:rem 119 
POKEDD ,M:FORI=.TO1 :POKESD+1*2,FNP(PD+I1) :NEXT: RETURN 
:rem 68 
DATA. 3,5;,7,9, 314143, 15 97 1/ :rem 123 
DATA 2,26,28,30,32,34,36,-59 srem 71 
DATA 24,47,49,51,53,55,57,82 s:rem 93 
DATA 45,68,70,72,74,76,78,81 s:rem 105 
DATA -95,69,71,73,75,/7,-/9,-19 srem 253 
DATA 67,48,50,52,54,56,58,-41 srem 140 
DATA 25,27, 29,31,33,35,37,-63 srem 130 
DATA 4,6,8,19,12,14,16,-85 srem 226 
DATA 169,127,73,255,141,32,145,173 srem 135 
DATA 33,145,73,255,141,255,29,96 :rem 42 
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Even though your computer’s operating system is burned into ROM, the de- 
signers have left entrances into it for the purpose of extending it. One such 
entrance is the CHRGET subroutine in zero page, the often used and dis- 
cussed wedge for adding to BASIC. The vectors are another type of entrance 
into the operating system. 

Vectors are addresses written into page 3 of RAM. Various system sub- 
routines execute along and suddenly jump indirectly through these addresses 
in RAM. These jumps cause execution to continue at the next instruction 
after the jump; in other words, they appear to do nothing. However, the 
jumps provide a way out of and back into the computer’s ROMs. 


Keywords and Tokens 
BASIC keywords are stored as single bytes, or tokens, inside the computer. 
When programs are entered, the keywords are tokenized, or crunched, and 
when the program is listed, the tokens are translated back into keywords. In 
the VIC the routine that crunches keywords allows them to be entered in an 
abbreviated form. For most keywords, typing the first two letters, with the 
second one SHIFTed, is enough to enter the keyword. Due to similarities in 
spelling, some keywords use three letters, with the third SHIFTed, as an 
abbreviation. Other keywords have no abbreviation at all. 

Although keywords are entered in abbreviated form, they list in full 
form, due to the tokenizing procedure. BASIC allows 88 bytes per logical 
line, but when editing lines we have listed, we are editing expanded 
keywords. So even though we have filled the line as much as the editor will 
allow, it can still handle more when crunched. If we fill out a line with 
abbreviated keywords, we can produce even longer lines that will list cor- 
rectly, but we will not be able to edit. 

One solution to this problem would be to produce listings in the abbre- 
viated keyword format, which we will edit by adding normal or abbreviated 
keywords and which the crunching routine could read back in. Since we 
have a link into the listing routine, we can do just that. This solution will not 
guarantee producing 88-byte lines every time, but it will allow us to come as 
close as possible and still be able to do screen editing. In fact, in some cases, 
it will be possible to produce lines longer than the 88-token limit. Caveat 
programmer! 
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Abbreviating Keywords 
There are three special cases when producing the shortened keywords. 
Usually, we print the first character as is and SHIFT the second. Two-letter 
keywords (TO, ON, IF, OR, and so on) do not require abbreviating and are 
printed normally. Some keywords need two normal characters and a 
SHIFTed character since they start with the same letters as other keywords 
(GOSUB, STR$, RETURN, and so on). Finally, there are exceptions which are 
always printed out in full (INPUT, LOG, NEW, and so on). The first case is 
handled by a specific test, and the other two are handled by a short table 
search. One exception which doesn’t fall into the above groups is PRINT 
which prints out as a question mark. 

The compressed-listing routine has two user entry points, INIT and 
KILL. INIT replaces the vector in RAM with the address of the new LIST 
routine. KILL restores the original vector, returning normal listing. INIT tests 
the high byte of the vector to make sure that it has not been invoked twice 
without an intervening KILL. 

BASIC keywords are stored in one page (256 bytes) in the beginning of 
the BASIC ROM. The last letter of each keyword is SHIFTed, marking the 
end of the keyword. The letters of the keywords are stored in ASCII format, 
not screen code notation, so a SHIFTed letter has its highest bit turned on. A 
BMI test detects this. The routine uses a PRINT subroutine to output charac- 
ters, the only fixed ROM address used besides the keyword table. The rou- 
tine always returns to the normal LIST routine through the saved vector. 


The Loader 
The BASIC program provided will load the routine into a VIC-20 with any 
memory configuration. It partitions off the highest page of memory from 
BASIC and relocates the machine language routine. The machine code is 
stored in hexadecimal in the DATA statements of the program. Line 90 is a 
one-line subroutine that will convert any length hexadecimal string to a deci- 
mal value. The locations of the INIT and KILL routines are printed out when 
the loader is run since they depend on the amount of memory in the com- 
puter. Loading takes about ten seconds, and for an unexpanded VIC you 
should see: 


RUN 

SYS( 7442 ) = INIT 
SYS( 7469 ) = KILL 
DONE 


READY. 
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Doing a subsequent SYS7442 (on an unexpanded VIC) will set the new 
link and a subsequent LIST will be in compressed format. Even though the 
listing looks strange, you can still use screen editing, adding normal or com- 
pressed keywords. Since the same listing routine is used independently of 
the output device, you can produce abbreviated listings on the printer or on 
any other output device. Doing a SYS to the KILL routine restores normal 
listing, and another call to INIT will turn compressed listing back on. Com- 
pressed listing does not affect SAVEs or any other BASIC function. 


Compressed List 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,”’ Appendix C. 


10 M=PEEK(52)-1:POKE52,M: POKE56,M: POKE51,@:POKE55,0:CLR:M=PEE 


K(52) :B=M* 256:PC=@ srem 217 
26 HS="12":GOSUB98:PRINT"SYS("D+B") = INIT" srem 159 
38 HS="2D":GOSUB9@:PRINT"SYS("D+B") = KILL" :rem 162 
48 READHS :GOSUB9@ :IFD<>PCTHENPRINT"ERROR IN ";D+109:STOP 

srem 5 
5@ FORK=1TO16 : READHS :IFHS="END"THENPRINT "DONE" : END srem 149 
60 IFHS="**"THEND=M: GOTO8@ :rem 14 
78 GOSUB9@ :rem 8@ 
88 POKEPC+B,D: PC=PC+1 :sNEXT:GOTO4@2 srem 8@ 
98 D=0:FORI=1 TOLEN(HS) :J=ASC(MIDS(HS,1,1))-48:D=16*D+J+(J>9)* 
7 sNEXT: RETURN srem 118 

198 DATA®®D,21,0E,49,0F,0D,2A,45,3F,806, 36,44, 3D, 23,3A,190,41 
srem 156 

118 DATA19,00,00,AD,07,903,C9,**,FO,13,8D,AD, **,A9,**,8D,907 
srem 149 

120 DATA20,903,AD,06,93,8D,AC, **,A9,3A,8D,96,93,60,AD,AC, ** 
:rem 2802 

130 DATA3@,8D,906,903,AD,AD,**,8D,07,983,60,19,6D,C9,FF,F9,69 
srem 232 

140 DATA4®, 24,0F, 30,65, 38,E9,7F,AA, 84,49,C9,1A,D0,04,A9,3F 
srem 247 

150 DATA5S,DO,53,8D,10,**,AG,FF,CA,FO,98,C8, BIY,9E,CO,190,FA 
:rem 16 

166 DATA69,30,F5,8C,11,**,AG,908,AD,190,**,D9,07,**,FO, 28,88 
srem 129 

176 DATA7@,10,F8,A2,00,A0,06,D9,900,**,FO,04,88,190,F8,24,E8 
srem 159 

186 DATA8@,AC,11,**,C8,B9,9E,CO, 39,1C,20,47,CB,CA,10,F4,C8 
srem 255 

196 DATA9@,B9,9E,CO,49,80,D0,10,AC,11,**,C8,B9,9E,CO, 39,085 
:rem 220 

200 DATAA®, 26,47,CB,DO,F5,29,/F,A4,49,A2,00,4C,1A,C7,END 

s:rem 201 
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This program will allow you to clone your unexpanded VIC into two 1K 
VICs through software. You will be able to place two separate programs into 
memory and run them at the same time. The program lets you view them in- 
dividually or at the same time with a special split-screen display. 


Multiprocessing 
Multiprocessing means having more than one running program (process) at 
the same time. Multiprocessing usually takes place on mainframe computers 
and minicomputers which support many users at the same time, or allow 
single users to run several programs in parallel. However, even an inexpen- 
sive microcomputer can support a multiprocessing environment. 

The VIC comes with two processes, the BASIC process you see and the 
IRQ process which handles the background routines involving the keyboard, 
clocks, and other system tasks. The two processes do not actually run at the 
same time; however, they switch back and forth so often that they appear to 
run in parallel. We'll use the IRQ process to help manage a third process on 
the VIC, which will look exactly like the normal BASIC process, but will be 
completely independent of it. 

In order to switch processes, we will SYS to the routine PROC which 
saves the state of the current process on the stack and in reserved blocks of 
memory. The PROC routine restores a different process from the one it was 
called by. The next time PROC is called, we pull the switch again and let the 
Original process run, and so on. 

To initialize this system, we’ll need to have separate memory to store 
the state of the process that is not running. This requires space to save the 
first three pages (one page equals 256 bytes) of memory. There is no need to 
save the fourth page of memory ($0300-$03FF) since it doesn’t have any 
BASIC state information. We will need to save an extra screen memory (two 
pages) as well as extra color memory for the second BASIC. 

We need one page of memory for our program (some of the program we 
will place in page 3 which is not swapped in the current scheme). This 
leaves 2K of memory in the unexpanded VIC to split between the two BASIC 
processes. The memory for the process system lays out as follows: 


$9600-$97FF Color memory 

$9400-$95FF Alternate color memory 

$1E00-$1FFF Screen memory 

$1C00-$1DFF Alternate screen memory 

$1900-$1BFF Storage for the first three pages of dormant process 
$1800-$18FF The process and video control programs 
$1400-$17FF Memory for the second BASIC process 
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$1000-$13FF Memory for the first BASIC process 
$0000-$03FF BASIC and Kernal storage (and process init program) 


With careful coding, the system just fits into the unexpanded VIC. By 
putting the alternate screen memory just below the normal screen memory, 
we can switch screens by inverting just one bit. This same bit will cause the 
color memory to switch for us to the location normally used to hold color 
memory when the VIC is expanded to 8K or more. The initialization part of 
the process mechanism resides in the tape buffer starting at $033C, and is 
used only once so the tape buffer can be used normally once processes are 
running. 


Initialization and Process Switches 
To initialize the process system, we copy the first three pages of memory 
into our storage area, copy the screen characters and colors into the alternate 
screen, and set new BASIC pointers to reflect the locations of the two BA- 
SICs. We also need to initialize some of the video registers. Since we copy 
the state of one process to create the other, both BASIC processes start out as 
exact copies of each other, but take on their own environments as we pro- 
gram in them. 

Process switches are very simple. When we hand off process control, we 
swap the contents of the first three pages with what we have saved away. 
Process switches can be done from the keyboard by pressing the f1 key or 
from a BASIC program with a SYS6275. We also need to update some video 
information on the process switch if we are not running in split-screen mode. 


Split Screens 
In order to watch both processes at the same time, there is a split-screen rou- 
tine which runs on the IRQ interrupt. This routine sets the video display to 
show only 11 rows at a time. During each IRQ interrupt it changes both the 
screen being displayed and the vertical origin of the screen. One screen starts 
at the top of the display and the other just below the center so that there is a 
single-row gap of border color in between. 

Normally, when switching screens like this, there is an instant when the 
screens overlap visually. To avoid this, we wait until the video raster (read- 
able due to the VIC’s light pen capabilities) is at the top of the screen before 
we switch. Although there is only one screen being displayed at a time, they 
switch so quickly (about 60 times a second) that there appear to be two dis- 
plays, one above the other. 

In order to view or work on the processes separately, press the f3 key, 
which will switch to single-screen mode. Process switching with the fl key 
will also switch to the screen of the process of interest when in single- 
display mode. Even though only one screen is being displayed, the other 
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process may still be running, updating its currently invisible screen. Split- 
screen mode can be turned on again by pressing f3 once more. The same fast 
switching technique which makes the split screen work can also make the 
processes appear to run simultaneously. 

The process control provided requires that one process let the other run, 
and vice versa, using the function key or SYS. This is an explicit handoff 
method of control. By having each process constantly handing off to the 
other, usually in a loop, they will appear to run at the same time, achieving 
our goal of parallel processing on the VIC. Two example programs which do 
this are included. 


Starting Processes 
First, run Program 1, which contains the program in hexadecimal strings and 
POKEs it into memory. The program contains checksums to catch errors 
made when typing it in. It takes a little time, so be patient. When it is done, 
do a SYS828. You should now have a split screen. The next step is the most 
crucial. Clear the screen by pressing SHIFT-CLR/HOME several times. Next 
do a SYS6275, and press SHIFT-CLR/HOME again several times. Repeat this 
procedure until you are able to switch the cursor easily from window to win- 
dow by pressing the f1 key. 

You are now ready to start using your two BASIC processes, but first, a 
quick warning: Do not press RUN/STOP and RESTORE together. This will ter- 
minate the process system, possibly unrecoverably. 

To stop a process, simply use RUN/STOP alone. Also be careful when 
putting processes in infinite loops, since they may be difficult to halt. You 
can put programs into each BASIC through the normal means—keyboard, 
tape recorder, disk, or whatever. One of the windows of the split screen will 
disappear temporarily during tape or disk operations. 

The interrupt routine uses a simple test to see if the function keys are 
down, so they tend to bounce a bit. Quick, short taps are best. You should 
avoid programs that manipulate storage outside of BASIC or any BASIC 
pointers, as they will probably crash the program. Programs that are written 
completely in BASIC (no POKEs) are best. You will have only 1K of memory 
in each BASIC, so your programs should be short. Look at the example pro- 
grams to see how to set up simple processes. 


Example Programs 
Program 2 computes prime numbers, handing off to the process-switch rou- 
tine before it tests every number. Program 3 displays the VIC character set in 
large format on the screen, handing off control before each line of display. 
When testing to see if you have entered them correctly, make sure you put a 
REM before the SYS statements. 
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To run the programs, first set up processes as outlined above, load one 
of the programs, and type RUN. The program should hand off control fairly 
quickly, and the cursor should appear in the other window. Load the other 
program and type RUN. Now they both should be running. These processes 
are best viewed in single-screen mode, and you will be able to verify for 
yourself that the other process is still running when you are not watching it 
by seeing how far it has advanced between viewings. 


Parallel Processing 
We have set up parallel processing on our little VIC in a manner similar to, 
although much simpler, the way larger computers do. If you examine the 
machine language program carefully, you will notice that the memory limita- 
tions are all that limits it to only one extra BASIC process. Therefore, a VIC 
with more memory could have even more BASIC processes, each running in 
turn. This would require special handling of the color memory, among other 
things, but it is within the VIC’s capabilities. 


Program 1. Multiprocess 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


198 POKE52,24:POKE56,24:CLR srem 58 
110 FORQ=1000TO1LIL4GSTEP1O :rem 2906 
120 C= s:rem 67 
136 READADDS , MEMS ,CSUM srem 48 
140 HS=ADDS :GOSUB99098 :ADD=D srem 2 
15@ HS=LEFTS (MEMS, 2) :IFHS=""GOTO219 srem 194 
160 MEMS=MIDS (MEMS, 3) :rem 136 
176 GOSUBIGG :rem 177 
1890 POKEADD,D s:rem l 
196 ADD=ADD+1 :C=C+D srem 49 
208 GOTO159 . :rem 97 
210 IFCSUM<>CTHENPRINT"ERROR IN LINE";Q:END srem 253 
220 NEXT srem 211 
230 PRINT"SYS(828) TO START":PRINT srem 80 
248 PRINT"SYS(6275)/F1 TO SWITCH" :rem 166 
258 PRINT"F3 SPLIT/FULL SCREEN" srem 143 
260 POKE52,20:POKE56, 20 srem 30 
276 NEW :rem 131 
980 D=@:FORI=1TOLEN(HS ) :J=ASC (MIDS$(HS$,1,1))-48:D=16*D+J+(J>9) 
*7 sNEXT: RETURN :rem 166 
199@ DATA 833C,78A9188D15803A9908D1493BA8EC318AQGB0GB9IBBGBIIBB19 
BOY, 2966 :rem 49 

1018 DATA 6354,999199001AB9890299001 BBIBG1 E99GG1CBIBBG1FIIBB1D 
B9Y,1526 srem @ 

1928 DATA 836C,89996999994B9009799009588DGD3A9DB8DHG148DG1148D 
@2,2279 s:rem 20 
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1830 DATA 0384,14A914853885348D2C198D2E198D30198D3219A9188D34 
19,1846 srem 68 
1948 DATA 039C,8D3819A91C8D884 285 D2A99485 F4A94B8DC418A9198DC5 
18, 2896 srem 186 
1958 DATA 93B4,A9898DC618A9168DG0 3905869 ,1323 :rem 22 
1968 DATA 1808,2CC618191BA9IGBCDB49BDPFBACG1 IGWADC4188DG1988CC4 
18,2646 srem 125 
1978 DATA 1818,A9884D82998D9296A5C5C927DB1B2CC6183H1GA9B74DO0F 
99,2386 :rem 88 
1880 DATA 1830,8DOF9GA98B4D92988DH2982083184C8018C92 FD83BA9I8BD 
4D,2411 srem 75 
1998 DATA 1848,C6188DC6181989AEC518A916A91 B1901FA216A91CCD8802 
FQ ,2394 :rem 136 
1198 DATA 1868,82A2968EG290AD@19908DC518A219AG2 EAIGB22D88020918 
8E,2204 :rem 59 
1118 DATA 1878,981988CH3998DOFIG4C BFEA488A489848ADC318BA8EC318 
AA, 2848 srem 199 
1128 DATA 18908, 9AAGBOSBEGG1IBIGGHGIIAT1 YBAIIGGDGD BEDG1ABIGBOHG1 99 
08,1738 :rem @ 
1130 DATA 18A8,1A8A99@9@1 BEGO1 BBIGGG299GG1 BBAIIGGSG 288 DBDE668A8 
68,2129 srem 65 
1140 DATA 18C0,AA6860, 376 :rem 4 
Program 2. Example 1 
For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 
) P=1:F=2:M=60275 :rem 118 
2 P=P+F:J=3:SYSM :rein 250 
3 IFJ*J>PTHENPRINTP :GOTO2 <rem LOL 
4 Q=P/J:IFINT(Q)-QTHENJ=J+F :GOTO3 -rem 11S 
5 GOTO2 :rem 1600 
Program 3. Example 2 
For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 
18 PRINTCHRS (147) :rem 220 
15 M=32760:P=6275 s:rem 141 
206 SS=CHRS(18):TS=CHRS(146) srem 173 
25 FORI=0TO7:T%(7-1)=2TI:NEXT :rem 30 
36 FORN=@TO511:M=M+8 :rem 179 
35 PRINTCHRS(19):PRINT: PRINT :rem 63 
4Q FORJ=MTOJ+7 :SYSP :rem 247 
45 X=PEEK(J):YS=" " :rem 246 
5@ FORK=0TO7 srem 222 
55 IFXANDT%(K) THENYS=Y$+SS :rem 65 
68 YS=YS+" "4TS srem 175 
65 NEXT:PRINTYS,YS$ :rem 151 
70 NEXT :NEXT:GOTO2@ :rem 244 
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screen Print Il and — 
Big Screen Print 


“Screen Print’ was a program that printed out, bit for bit, whatever was on 
the VIC screen. Since the original Screen Print program for the VIC, features 
and optimizations have been incrementally added which make the program 
both smarter and faster. As a bonus, the “Big Screen Print’’ variation of 
Screen Print prints the screen four times larger. 

For those unfamiliar with the original Screen Print program, it translated 
the VIC’s 8 X 8 (or 16 X 8) characters into six-bit-high characters for the 
printer, picking up characters in each row of the screen where it left off, so 
no bits were missed. A line on the printer could be part of two adjacent lines 
on the screen. This allowed an exact reproduction of the screen, not possible 
with the printer’s 6 X 7 bit character set. 


screen Print Il 

Certain features which were missing from Screen Print have been incor- 
porated into “Screen Print II.’” This program is able to print full graphic 
screens without modification. The height and width of the screen are deter- 
mined by examining the VIC chip registers rather than being set by the user. 
The calculation of the number of rows now adjusts for double-height charac- 
ters, and the printout is horizontally centered on the page. Despite the added 
flexibility of Screen Print II, it is also slightly faster than the original. 

screen Print II has several optimizations that improve its performance. 
The powers of two, used to test and set bits, are precomputed and stored in 
an array (make sure your graphic area is well protected from array space). 
Multiplication and division operations have been replaced with logical opera- 
tions for added speed. Though some gains have been made in speed, don’t 
expect miracles—printing a normal VIC screen will take about 25 minutes. 


Big Screen Print 
Big Screen Print is a modified version of Screen Print II that prints four dots 
to each screen pixel. The program has the extra complexity of mapping an 
even number of pixels onto odd-sized characters. This makes it twice as slow 
as regular Screen Print, though some may find the larger printouts worth the 
time. The larger format may also be more useful when printing screens with 
multicolor characters. 

To use either program, you can include it as a subroutine in your pro- 
gram. Since there are no GOTOs in the code, lines can be numbered any 
way you wish. A better approach, for most applications, is to link programs 
by having your program set up the screen, do a CLR, wait for you to start 
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the tape recorder running, and then load the Screen Print program to start it. 
For example: 


100 WAIT 100,1:GET A$:CLR:LOAD “SCREEN PRINT” 


You should make sure the original program is larger than Screen Print to 
allow the program linking to work. 

Both programs work no matter how the VIC’s screen is shaped, no mat- 
ter where it is located in memory. Before printing the screen, the programs 
find where the character set resides in memory, so the programs work with 
both ROM characters and user-definable RAM characters. They also work 
with mixed user and ROM characters, as well as adjust for double-height 
characters. Anything that can be PRINTed or POKEd onto the screen will be 
printable by Screen Print II and Big Screen Print. 


Program 1. Screen Print Il 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,’’ Appendix C. 


1 V=36866 :U=127 :H=( PEEK(V+1)AND126)/2:W=PEEK(V)ANDU:FORI=.TO7 


:T3(7-1)=2TI:NEXT srem 237 
2 ES=CHRS$(16)+MIDS(STRS$(4@-INT(W/2)),2,2) :N=PEEK(V+3) AND15:X= 
N=15 srem 162 
3 T=128 :S=4* ( PEEK(V) ANDT) +64* (PEEK(V+3) AND112) :Z=(PEEK(V+1)AN 
D1 )*8+8 :I=Z-1 srem 247 
4 J=H*Z : K=W* 8-1 :F=2715 :N=(NAND7)*1024-F*((NAND8)=.):OPEN4,4:P 
RINT#4,CHRS(8) srem 73 
5 FORL=.TOJ-1STEP7:PRINT#4,ES; sFORC=.TOK:B=T% (CAND7) :A=T: P=S+ 
c/8 :rem 7 
6 FORR=LTOR+6 :Y%=R/Z : D= PEEK ( P+ Y%3*W) :M=N: I FXTHENIFD> UTHENM=F: D 
=D-T srem 16 


7 IFR<JTHENIF PEEK (D*Z+M+(RANDI ) ) ANDBTHENA=A+T3(7+L-R) :rem 33 
8 NEXT:PRINT#4,CHRS (A); :NEXT: PRINT#4 :NEXT:CLOSE4:END :rem 148 


Program 2. Big Screen Print 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,”” Appendix C. 


1 V=36866 :U=127 :H=( PEEK(V+1)AND126)/2:W=PEEK(V)ANDU:FORI=.TO7 


:T%(7-1)=2TI:NEXT srem 237 

2 ES=CHRS(16)+MIDS$(STRS(35-W),2,2) :N=PEEK(V+3)AND15:X=N=15:FS 
=CHRS ( 26 )+CHRS$ (2) srem 83 
3 T=128:S=4* (PEEK(V)ANDT)+64* (PEEK(V+3)AND112) :Z=(PEEK(V+1)AN 
D1) *8+8:I=Z-1 :rem 247 

4 J=H*Z:K=W* 8-1 :F=2715 :N=(NAND7)*1024-F* ((NAND8)=.):OPEN4,4:P 
RINT#4,CHRS(8) srem 73 

5 FORL=.TOJ-1STEP7 :FORE=.TO1:PRINT#4,ES3; :G=L+E*3:FORC=.TOK:B= 
T% (CAND7) :A=T srem 148 

6 P=S+C/8:FORR=GTOR+3 :Y$=R/Z:D=PEEK( P+Y%*W) :M=N: 1 FXTHENIFD> UT 
HENM=F : D=D-T srem 247 
7 IFPEEK (D*Z+M+(RANDI ) ) ANDBTHENY=R-G:Q=2* Y+E* (Y>.) :A=A+T%(7-Q 
)-(Y¥<>3-3*E)*T%(7-Q—-1 ) srem 48 

8 NEXT: PRINT#4,FS;CHRS(A); :NEXT: PRINT#4 :NEXT: NEXT: CLOSE4 : END 
:rem 178 
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Working with cassette tapes can be time-consuming. Not all of this time is 
spent waiting for the computer to load or save a desired program. Some time 
is spent positioning the cassette tape to the correct starting location. 

Two methods have been proposed to accomplish this positioning. The 
first method (recommended in the user manual) is to verify the preceding 
program and after receiving the VERIFY ERROR, save the program right be- 
hind the last one on tape. If your cassette recorder has a counter (and you 
remember to reset it at the beginning of the tape), the starting position and 
the program name can be recorded in a notebook. One problem with this 
method is that a program enlarged in a revision cannot be stored at the same 
starting position if there is a program behind it. An enlarged program will 
wipe out the trailing program. What usually happens is that another entry 
must be made to the notebook. 

Thanks to Harvey B. Herman’s ‘Fast Find’” (COMPUTE! magazine, July 
1982) the second method allows for expansion space between programs. This 
utility program is stored at the beginning of each storage tape. It contains a 
directory of the programs stored on the tape. This program instructs the user 
to operate the cassette recorder in order to fast forward to the starting po- 
sition where a program has been previously stored. 

There are two problems with this method. Saving the program requires 
running the utility program to position the tape. So an updated program 
must be saved on a second tape temporarily in order to load the utility pro- 
gram. The second problem is that the space between programs becomes 
larger as the tape reaches the end, due to the increase in the diameter of the 
take-up reel and the fixed amount of time for the fast forward (F.FWD) op- 
eration. If the gap was reduced, then less time would be required to position 
the tape. 

In order to solve both of these problems the Fast Find program was al- 
tered to specify the starting location of each program and to maintain a mini- 
mum gap between programs. To accomplish this the tape counter was 
calibrated with a means of relating program size to tape length. 


Tape Calibration 
The current version of Fast Find uses a varying time delay with the cassette 
in the F FWD mode to position the tape to the beginning of one of a number 
of programs stored on a tape. An equation for defining the time delay for the 
F.FWD loop in terms of the tape counter value was developed using the Fast 
Find program. This timing loop was modified to include an input variable 
which allows the F.FWD time to vary. The table shows the F.FWD time (T) 
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and the associated tape counter value (C). Note at T=0, the value of C 
represents the length of the Fast Find program. 


F.FWD Time vs. Tape Counts 
T Jiffies C Counts 


0 6.0 
1000 57.9 
2000 1229 
3000 206.1 
4000 310.1 
5000 452.1 


This data was then used to form the equation: 
T = 104 + 16.72*C — 0.01309*C*C 


In order fo relate program size to tape length, a linear relationship be- 
tween them was defined: 
Cn = CO + C/S * Sn/1000 
where Cn is the count for the nth program; 
CO is the count independent of file size; 


C/S is the counter change per kilobyte of program; 
Sn is the size of the nth program. 


Saving a short program (8 bytes) and a larger program (3574 bytes), the 
change in counter value was 3 and 20, respectively. Therefore, the linear 
constants are 


CO =3 
C/S = (20—3)/(3574—8) = 4.76 


{ 
Putting It All Together 
Now that the tape is calibrated, a specified file size can be used to define the 
F.FWD time. Instead of entering the data (NAME and SIZE) as in the Fast 
Find program, it is more convenient to use the dynamic keyboard technique. 
This scheme stores data as part of the program. 

The program is structured around this dynamic keyboard technique. The 
data is stored in four arrays (C%, A$, SN, SM). C% contains the starting 
tape counter value for each program stored on the tape. A$ contains the pro- 
gram names. SN and SM contain the program’s size in kilobytes. SN is the 
current value while SM is the maximum value. 

Each element in these arrays represents cataloged information of the 
programs as they are stored on the tape. However, the zero element is used 
for data destroyed by the dynamic keyboard. The value of C%(0) is the 
number of cataloged programs. SN(0) is the counter value for the next pro- 
gram to be stored, and SM(0) is the current size of ‘’Tape Catalog.” 
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| Program Operation 

After the DATA statements are read, a menu appears that asks if you want 
to add to the directory or load a program. If you select A, you are prompted 
for data for the next program to be added (the catalog data must be entered 
in order). First, you are asked the filename. It must match the one on tape. 
Next, you are prompted for the program size (current and maximum) in units 
of bytes. The kilobyte equivalent is then shown in the format used later. If 
you accept the data, it is added to the program by the dynamic keyboard 
subroutine. If not, you are returned to the beginning menu. 

If you select B, the directory is displayed and you are asked to select a 
program number from a list assigned to each file as it was entered (same as 
Fast Find). An invalid number will send you back to the beginning menu. A 
valid number will display the time delay (in seconds) being implemented in 
the F FWD mode. The remaining program operation is the same as Fast Find. 


Operational Notes 
The simplest method to calculate SN is to load the nth program and print the 
difference between the memory size minus FRE(0). For example, for the un- 
expanded VIC this would be 


PRINT 3583 — FRE(0) 


If the current memory size for the VIC is not known, this instruction will 
work: 


PRINT PEEK(45) — PEEK(43) + 256*(PEEK(46) — PEEK(44)) 


Don’t forget to save the Tape Catalog program each time after the direc- 
tory has been updated. A reminder has been added. If you make a mistake 
in a program name or current size (SN), the offending DATA statement can 
be found and changed at line 10001 and up. 

In order to account for inaccuracies in the tape calibration process, a pro- 
gram’s maximum size (SM) should always be larger than the current size 
(SN). For the 60-minute tape used here, 210 bytes represent a tolerance of 
one tape count. 

If you want to start a new tape, just change the value of C%(0) in line 
10000 and save the program on the new tape. 


Tape Catalog 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,’’ Appendix C. 


1@ RESTORE:REM READ # OF PROGRAMS = C%(@) :rem 8 
20 READJ : RESTORE :N=J+1 :rem 145 
25 REM TAPE CALIBRATION COEFFICIENTS :rem 15 
26 AG=194:A1=16.72:A2=— .91309:CO=6 :rem 244 
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38 CO=3:CS=4.76:REM SIZE COEFFICIENTS srem 12 
49 DIMC%(N),AS(N),SN(N),SM(N) srem 76 
5@ NC=22 :NR=23:SB=36879:REM SCREEN :rem 14 
69 FORI=90TOJ srem 248 
78 READC$(1I),AS(1I),SN(1I),SM(I1) :NEXTI srem 63 
88 POKESB, 254 srem 243 
909 PRINT" {CLR} {BLU} {5 SPACES}TAPE CATALOG" srem 17 
95 PRINT"{2 DOWN}NUMBER OF PROGRAMS ON THIS TAPE = "sJ 
srem 235 
180 PRINT"{3 DOWN} A) ENTER PROGRAM DATA":PRINT :rem 118 
118 PRINT" B) SELECT A PROGRAM" srem 231 
128 PRINT"{3 DOWN}ENTER A OR B PLEASE " srem 243 
130 GETKS :IFKS="A"THEN50@0 srem 161 
140 IFKS<>"B"THEN13@ :rem 86 
145 REM LIST DIRECTORY :rem lll 
158 POKESB,8 srem 190 
168 FORK=@TOJSTEPS srem 148 
165 REM PRINT HEADER srem 182 
176 PRINT" {CLR} {CYN}***PROGRAM*** SIZE-(K){YEL}NO. {WHT}***NAM 
E*** {GRN}NOW {RED} /MAX" srem 129 
175 REM PRINT DATA :rem 42 
188 GOSUB49¢ srem 173 
190 NEXTK srem 36 
260 PRINT"SAVE NEXT PROGRAM{5 SPACES}AT COUNTER NUMBER "SN(@) 
:rem 137 
218 INPUT" {YEL}PROGRAM NO.(OR @)"3;K srem 144 
226 IFK<l OR K>J THEN8@d srem 238 
239 IF(PEEK(37151)AND64)=@THENPRINT"PRESS STOP ON CASSETTE" 
s:rem 98 
240 IF(PEEK( 37151) AND64)=8THEN240 srem 92 
258 PRINT"PRESS FAST FORWARD":PRINT"PLEASE" srem 253 
260 IF(PEEK( 37151) AND64)=64THEN269 srem 154 
270 PRINT"THANK YOU":PRINT srem 164 
3008 A=TI:REM SAVE TIME :rem 42 
381 REM D=COUNTER OFFSET srem 224 
302 D=SM(@)-CO:TO=AV+A1*D+A2*DT 2 srem 234 
305 REM C=COUNTER srem 28 
318 C=C%(K) :T1=AG+A1*C+A2*Cf2 srem 42 
315 REM DT=DELAY TIME srem 240 
320 DT=T1-TO:S=INT( DT/60) srem 211 
330 PRINT"WAIT "S;"SECONDS " srem 125 
335 PRINT" {HOME}"; :FORI=1TONR: PRINT" {DOWN}"; :NEXT :rem 165 
340 IFTI-A <DTTHEN34@ srem 2983 
350 POKE37148, PEEK( 37148) AND247 srem 231 
360 PRINT"PRESS STOP PLEASE" srem 247 
370 IF(PEEK(37151)AND64)=8 THEN37@2 srem 100 
386 PRINT" {CLR}{3 DOWN}LOAD ";CHRS(34);AS(K);CHRS(34);CHRS(19 
s:rem 109 
398 POKE198,1:POKE631,13:END srem 110 
498 FORL=1T05 :rem 13 
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REM FIVE/SREEN srem 83 
I=L+K: IFI>JTHEN48@2 srem 66 
IS=MIDS(STRS(1I),2,2):PRINT"{YEL}"IS+" ";:IFI<1@0THENPRINT" 
ns srem 172 
REM FORMAT XX.X srem 126 
A=SN(1I) :GOSUB79@:SNS=KS srem 76 
A=SM(1) :GOSUB70@ :SMS=KS srem 75 
PRINT" {WHT}"AS(1I):TAB(13);"{GRN}"SNS;" {RED} "SMS;"{PUR}CO 
UNTER ="C%(I):PRINT :rem 55 
NEXTL :rem 37 
PRINT"HIT SPACE BAR FOR MORE" srem 176 
GETKS : I FKS=""THEN47@ :rem 109 
RETURN srem 124 
REM INPUT DATA :rem 43 
L=N+ 10000 : POKESB, 120 :rem 69 
PRINT" {CLR}{3 SPACES}PROGRAM NO.";N:PRINT srem 45 
INPUT "NAME"; AS(N) srem 203 
PRINT"INPUT SIZE DATA{7 SPACES}(IN BYTES)" srem 189 
INPUT" {DOWN} NOW";A:PRINT"NOW ="; :GOSUB75@:SN(N)=A 
:rem 179 
SNS=STRS (A) srem 75 
INPUT" {DOWN} MAX";A:PRINT"MAX ="; :GOSUB750:SM(N)=A 
srem 152 
PRINT"IS INPUT OK(Y/N)?" srem 153 
GETKS : I FKS=""THEN58@ srem 113 
IFKS="N"THEN8@ srem 2 
SMS=STRS (A) :rem 70 
REM MAX SIZE OF TAPE CATALOG IS 25 srem 93 
IF N=l THEN SN(@)=25 srem 215 
CS=STRS(SN(@) ) srem 204 
GOSUB65@ srem 180 
GOTO678:REM DONE :rem 180 
REM SETUP DYNAMIC KEYBOARD :rem 106 
OS=MIDS(STRS(L),2,5)+"DATA"+CS+","+AS(N)+","+SNS+","+SMS 
srem 13 
REM DO IT NOW :rem 168 
RL=674 :GOTO9O@ srem 32 
PRINT" {CLR} {BLK}DON'T FORGET TO REWIND {DOWN}AND SAVE THE 
REVISED {DOWN}{4 SPACES}PROGRAM" :rem 79 
IFPEEK(197)=64THEN68@ srem 184 
GOTO19@ srem 57 
REM FORMAT XxX.X srem 122 
KS=STRS (A) :rem 243 
IFVAL( KS )=INT(VAL(KS) ) THENKS=KS+".@" srem 254 
IFLEN(KS$ )=3THENKS="| "+KS srem 241 
RETURN :rem 123 
REM BYTE > KILOBYTE srem 89 
A=A/ 1088 srem 75 
AS=INT( (A-INT(A)+.05)*10) srem 1 
A=INT(A)+A3/12 :rem 186 
PRINTA srem 199 


Utilities 


798 RETURN srem 128 
908 REM DYNAMIC KEYBOARD SUBROUTINE <:rem 227 
910 PRINT" {CLR}{2 DOWN} {YEL}": :rem 248 
928 REM INVISIBLE SCREEN :rem 228 
938 C%(8)=N srem 16 
935 REM NEXT STORING LOCATION SN(@) srem 1901 
949 SN(@)=SN(G8)+INT(CO +CS*SM(N) ) :rem 65 
945 REM CURRENT SIZE OF TAPE CATALOG :rem 158 
958 U=(256*(PEEK( 46) -PEEK( 44) )+PEEK(45)-PEEK(43))/1900*CS + C 
O s:rem 5 

960 PRINT" 1OBSODATA"CS(B);",DIRECTOR ,":SN(O)"," 7;U:PRINTOS 
srem 135 
978 PRINT"GOTO"; RL:PRINT" { HOME}" :rem 161 
989 POKE198,9 srem 215 
999 FORI=0TO8 : POKE631+1,13:NEXT srem 154 
999 END s:rem 139 
19900 DATA 2 ,DIRECTORY, 65 , 16.74212 :rem 118 
19061 DATA 25,COPY, 2.7, 3.6 srem 96 
19902 DATA 45,COPY2, 2.7, 3.6 srem 149 
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| Microassembler 


Try typing in a BASIC arcade-type game program on your VIC. How fast is 
it? Not very. There’s only one solution for higher speed. Machine language. 

Machine language is a powerful tool for computer programmers. It's 
faster than BASIC, and it allows you to access routines and locations you 
could not otherwise reach. If you’ve programmed only in BASIC, machine 
language can be hard to learn. A BASIC programmer will come upon hexa- 
decimal numbers, offsets, and numerous addressing modes. 

‘‘Microassembler’” was written to solve as many of these problems as 
possible. It requires a VIC with at least 8K memory expansion. 


Assembler Mode 
Microassembler uses a unique syntax for its assemble section. Here are the 
basic guidelines: 


1, Single-byte instructions, like CLC or SED, can be typed as normal. 

2. Zero page instructions have a Z following their root form, like ORAZ, 
ANDZ, DECZ, and so on. 

3. Indexed instructions always have their index at the end, like ANDZX, 
DECX, LDXY, and so on. 

4. Immediate instructions always have the symbol # at the end, for ex- 
ample, LDX#, CMP#, and AND#. 

5. For simple absolute instructions, just use the normal form, like LDA, 
STX, CMP, and LSR. 

6. For indirect indexing, such as ORA (addr),X use ORA(X. Always put the 
index at the end. 

7. For an indirect jump, use JMP( ) addr. 

8. For accumulator addressing, just add an A to the end of the code, for 
example, LSRA and ASLA. 

9. The operation is always assumed to be the first five characters of the in- 
put string, with the operand comprising the remainder. Use enough 
spaces so that your operand will start at the sixth character or greater. All 
operation codes are from three to five characters in length. 

10. Hitting RETURN while assembling simply separates the program listing 
on the screen. It does not affect the program. 

11. To exit the Assemble mode, type DONE and press RETURN. 

12. All numbers are base ten while assembling. 

13. Branching instructions use the address you wish to jump to. 


The program uses a decimal format simply because I feel that decimal is 
easier to use than hex. For example, I find it much simpler to type 175 than AF. 

The rules above apply only to the Assemble mode. There are five other 
modes in the program. 
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Disassemble Mode 
Typing D while in the command phase will select the Disassemble mode. An 
initial address will be asked for, and the program will disassemble starting 
there. If a location does not hold an instruction, an X will be printed. 
Branches are calculated using a routine at line 10000. It’s always wise to 
check a program after assembling it to check for typing errors. The program 
will disassemble ten instructions and then wait for any key to be pressed ex- 
cept E. Typing E for Exit will exit to the command phase. 


Hex Val/Loc. 

The Hex Values of Locations mode is for those programmers who refuse to 
abandon hex numbers. This mode allows you to enter a series of hexadecimal 
digits into memory. It’s also good for converting hex addresses to decimal. To 
enter data, simply type in your starting hex address, and then type in your 
data and press RETURN. The program will show you the contents of each 
location before you change it. Hitting RETURN alone will leave the contents 
as they are and go on to the next location. Type X followed by RETURN to 
exit this mode. 


LOAD/SAVE RAM 

Typing L for LOAD RAM will load RAM into the memory area it was saved 
from. Tape users should change the 8 in lines 620 and 740 to 1. If you wish 
a relocated LOAD, change the 1 in line 620 to 0. This will load the data into 
the start of memory, destroying Microassembler unless vital pointers are 
changed. 

Typing S for SAVE RAM will save a program from any section of mem- 
ory of any length. Simply type in the name, the starting memory, and the 
ending memory location. 


Decimal Val/Loc. 
The V mode, or Decimal Values of Locations mode, does exactly the same 
thing as the H mode, or Hex Values mode, except it works in decimal. 


Learning 6502 Machine Language 
Aside from this program, I would also advise you to look at some books 
about 6502 machine language. Get a copy of the VIC-20 Programmer’s Ref- 
erence Guide. Starting on page 107, it has a section for machine language 
programmers that’s really helpful. 
Some other books you might find helpful are 6502 Assembly Language 
Programming by Lance Levanthal, Machine Language for Beginners by Richard 
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Mansfield, and Programming the 6502 by Rodnay Zaks. Also, comprehensive 
memory guides are almost necessities once you get into serious machine lan- 
guage programming. COMPUTE!’s Mapping the VIC by Russ Davies is a com- 
plete memory map for the VIC, and COMPUTE!’s VIC-20 and Commodore 64 
Tool Kit, both the BASIC and Kernal volumes, by Dan Heeb can be very use- 
ful if you want to look more closely at ROM routines. 


| Locating Your Programs 
The Microassembler takes up memory from 4608 to 9728, leaving 6655 bytes 


free for your programs. The top of memory for an expanded VIC with one 
8K expander is 16383. 


| Some Examples 

Since the syntax for Microassembler is so different from that of other assem- 
blers, I have included some short routines in standard and Microassembler 
format for comparison. 

First, we'll write the program in standard 6502 assembly language, start- 
ing at location 16000, and then we'll see the program in the Microassembler 
version. 

3E80: LDX #$00 

3E82: STX $A2 
AA 3E84; CMP $A2 

3E86: BNE AA 

3E88: RTS 


And now, the Microassembler version: 
16000:LDX# 0 

16002:STXZ 162 

16004:CMPZ 162 


16006:BNE 16004 
16008:RTS 


This program simply clears location 162 and then waits for it to equal 
the value of the accumulator. The machine will automatically increment loca- 
tion 162 by one every 1/60 second. 

The Microassembler program is very close to the standard form in this 
particular case. Let’s try another, and this one will be longer and more com- 
plex. Let’s use the Kernal CHROUT subroutine. The CHROUT subroutine 
sends a single character to the output device, which is usually the screen. In 
other words, it can be used to print an ASCII character on the screen. 

We'll use the subroutine to print out a string up to 255 characters long, 
starting at a location pointed to by the X and Y registers. The length of the 
string will be in the accumulator. Once again, the routine will start at loca- 
tion 16000 decimal. First, we’ll write the standard version: 


i2 


3E80: STA $3E7F 
A 3E83: STX B+01 
3E86: STY B+02 
3E89: LDA $0000 
3E8C: JSR $FFD2 
3E8F: DEC $3E7F 
3E92: BEQ C 
3E94: INX 
3E95: BNE A 
3E97: INY 
3E98: JMP A 
C 3E9B: RTS 


Now, we'll see the Microassembler version: 


16000:STA 
16003:STX 
16006:STY 
16009:LDA 
16012:JSR 
16015:DEC 


15999 
16010 
16011 
0 

65490 
15999 
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16018:BEQ 16027 
16020:INX 
16021:BNE 16003 
16023:INY 
16024:;MP 16003 
16027:RTS 


The location of the string is calculated as 256*Y + X. This is standard 
high byte/low byte form in 6502 machine language. The length is stored at 
15999 because we need the accumulator free for the CHROUT routine at 
65490, which prints the ASCII of the accumulator to the output device, 
which in this case is the screen. 

The X and Y registers are stored into the locations used in the LDA 
instruction. This cuts down on the length of the routine and makes it faster 
and more efficient. After loading and printing, the program decrements the 
stored length and ends if it is equal to zero—that is, if all the characters have 
been printed. If the length is not zero, the program adjusts the X and Y reg- 
isters, which point to the character to be printed, and jumps back to the start 
again, storing the address and printing as before. 


Microassembler 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


5 POKE36879,154 srem 59 

6 POKE65@,255 srem 200 

18 PRINT"{CLR} {BLU} {RVS}{3 SPACES}MICRO ASSEMBLER{4 SPACES}" 
srem 14 


73 


Utilities 


20 PRINT" {3 


21 PRINT" 
22 PRINT" 
23 PRINT" 
24 PRINT" 
25 PRINT" 
26 PRINT" 
27 PRINT" 


A 
D 
H 
L 
S 
V 


~ 


DOWN} { RVS}COMMANDS: { DOWN}" 
~- ASSEMBLE" 

- DISASSEMBLE" 

- HEX VAL/LOC." 

- LOAD RAM" 

- SAVE RAM" 

- DEC VAL/LOC." 

- EXIT" 


28 POKE52,38:POKE56, 38 

38 A$S="9123456789ABCDEF" 

40 PRINT"{DOWN}C: {LEFT}":: 
41 GETBS :IFBS=""THEN41 


42 PRINTBS 


5@ IFBS="A"THEN3 90 
60 IFBS="D"THEN45@ 
70 IFBS="H"THEN286@ 
75 IFBS="L"THEN690 
77 IFBS="S"THEN70@ 
88 IFBS="V"THEN1OO 
99 IFBS="X"THENPRINT"{CLR}":END 


93 IFBS=CHRS$(13)ORBS=CHRS$(17)THENPRINT"{UP}"; 


94 IFBS=CHRS$ (145) THENPRINT" {DOWN}": 
95 PRINT"{3 UP}":GOTO4@2 
180 PRINT" {CLR} {RVS}{4 SPACES}DECIMAL VALUES{4 SPACES}" 


srem 201 


srem 198 


148 INPUT"{2 DOWN} START LOC.";L:IFL<@ORL>65535THEN14@:rem 36 


158 PRINTL;"--"; 
160 PRINTPEEK(L) ;"--"; 
165 HXS=" rT 


178 INPUTHXS : I FHXS="X"THENCLR:GOTO1@ 
175 IFHXS<>""THENPOKEL , VAL(HXS) 

188 L=L+1:I1FL>65535THEN1L4@ 

198 GOTO1L52 
208 PRINT" {CLR} {RVS}{6 SPACES}HEX{2 SPACES}VALUES{5 SPACES}" 


205 T= 


218 INPUT"{3 DOWN} START LOC. ";LS 

220 HXS=LEFTS(LS,2) :GOSUB1OBE 

230 T=VAL(HXS)*256 

248 HXS=RIGHTS(LS,2) :GOSUB1OOA 

258 T=T+VAL(HXS) 

260 IFT<=65535THENPRINTT;"--—"+ :GOTO27@ 
265 GOTO285 
278 G=PEEK(T) :HXS=STRS$(G) :GOSUB289@ 
280 PRINTHXS;"-—"> 


285 HxXs="" 


287 INPUTHXS :I FHXS=""THENT=T+1 :GOTO26@ 
288 IFHXS="X"THENCLR:GOTO1G 

298 GOSUB190@ :POKET,VAL(HXS) :T=T+1l 

295 GOTO260 


308 PRINT"{CLR}{RVS}{7 SPACES}ASSEMBLE{7 SPACES}" 


:rem 131 
:rem 2594 
s:rem 225 
srem 54 
:rem 124 
:rem 233 
:rem 105 


:rem 189 
:rem 88 
:rem 223 
:rem 126 
:rem 229 
:rem 211 
srem 159 
:rem 44 
:rem 199 
srem 83 
srem 255 
:rem 228 
:rem 126 
:rem 178 

srem 56 
:rem 113 

:rem 85 
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INPUT"{3 DOWN}START LOC.";L :rem 188 
PRINT"{3 DOWN}" :rem 153 
PRINT" {LEFT} "L":"+s :GOSUB2100:IFUS="DONE"THEN1®O srem 255 
IFUS=""THEN3 304 srem 231 
IFLEN(US)<6THENUS=US+" ":GOTO335 :rem 32 
CDS=LEFTS(US,5) :NS=RIGHTS (US ,LEN(US)-5) srem 133 
RESTORE :rem 194 
FORG=98T0255 srem 114 
READNMS srem 116 
IFNMS="X"THEN3 7G :rem 138 
I FLEN( NMS ) <6 THENNMS=NMS+#" ":GOTO362 srem 242 
IFCDS=RIGHTS (NMS ,5) THEN38@ srem 242 
NEXT : FORTH=1 T0500 : POKE36878, 15: POKE36876 , 248 :NEXT: POKE368 
78,@:POKE36876 ,@ :GOTO0338 :rem 178 
POKEL,G:IFLEFTS(NMS,1)="1"THENL=L+1 :GOTO33@ srem 41 
IFLEFTS(CDS,1)="B"THEN1190062 srem 187 
IFLEFTS(NMS,1)="3"THEN41@ srem 95 
POKEL+1,VAL(NS) :L=L+2 :GOTO3 3@ :rem 178 
F1=VAL(NS) :F2=INT(F1/256) : F3=F1l-F2* 256 s:rem 48 
POKEL+1,F3 :POKEL+2,F2 :rem 208 
L=L+3 :GOTO336 srem 211 
PRINT" {CLR} {RVS}{5 SPACES}DISASSEMBLE{6 SPACES}"  :rem 59 
INPUT" {3 DOWN}START LOC.";L srem 194 
PRINTL;"—"s: srem 91 
RESTORE: FORG=@TOPEEK(L) srem 250 
READNMS :NEXT srem 241 
PRINT" {RVS }";MIDS(NMS, 2); :E=VAL(LEFTS(NMS,1)) srem 6 
IF MIDS(NMS,2,1)="B"THENIGGO srem 171 
IFNMS="X"THENP RINT" X" : L=L+1 : E=@ :GOTO54@ srem 124 
I FE=1THENP RINT: GOTO54@ srem 16@ 
I FE=2 THENP RINTPEEK( L+1) :GOTO54@ srem 192 
Tl=PEEK(L+1) :T2=PEEK(L+2) :PRINT256*T24+T1 :rem 88 
GV=GV+1 : IFGV/19=INT(GV/1@) THEN56@ srem 210 
L=L+E:GOT047@ srem 237 
GETZS : 1 FZS=""THEN56@ srem 139 
IFZS="E"THEN1@ :rem 3 
PRINT: L=L+E :rem 174 
GOT047@2 srem 112 
PRINT" {CLR} {RVS}{7 SPACES}LOAD RAM{7 SPACES}" :rem 12 
INPUT" {3 DOWN}PROGRAM NAME";PNS srem 212 
LOADPNS ,8,1l :rem 59 
PRINT" {CLR} {RVS}{7 SPACES}SAVE RAM{7 SPACES}" srem 28 
INPUT" {3 DOWN}PROGRAM NAME";PNS srem 217 
NL=LEN(PNS) s:rem 97 
INPUT"{2 DOWN}START MEM"; SM srem 219 
INPUT"{2 DOWN}END MEM"; EM: EM=EM+1] :rem 9 
I FSM> EMOREM< @OREM> 655350RSM<QORSM> 65534 THEN7@5 srem 179 


S1=INT(SM/256) :S2=SM~S1* 256 :POKE172,S2:POKE173,Sl:rem 127 


POKE193,S2:POKE194,S1:E1=INT(EM/256) : E2=EM-E1* 256 
POKE174,E2 :POKE175,E1 :POKE186,8 :POKE183, LEN( PNS ) 


:rem 68 
srem 64 


FORJ=1TOLEN(PNS) : POKE819+J ,ASC(MIDS(PNS$,J,1)):NEXT :rem 5 


hs 
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758 POKE187,52:POKE188,3:POKE185,1 srem 263 
768 INPUT" {2 DOWN} {RVS}HIT RETURN TO SAVE";PS s:rem 235 
775 SYS631909:CLR:RUN srem 239 
999 END srem 130 
1900 TM=%9:FORJ=1TO2 srem 125 
1018 FORI=0TO15 srem 1904 
1020 IFMIDS(AS,I+1,1)=MIDS(HXS,J,1) THENTM=TM+1*16f ( 2-J) 
srem 98 
1038 NEXTI ,J:HXS=STRS(TM) :RETURN srem 38 
2008 HX=VAL(HXS) :Dl1=HXAND24@ srem 140 
24618 D2=HXAND15:D1=D1/16 s:rem 72 
2028 HXS=MIDS(AS,D1+1,1)+MIDS(AS$,D2+1,1) s:rem 13 
2030 RETURN s:rem 165 
21080 US=""sUSS="" s:rem 68 
2200 US=""s:GETUS : I FUS=""THEN22900 :rem 7 
2212 POKE36878,15 :POKE36876, 242 :FORG1L=1T0O35 :NEXT: POKE36878,2@ 
srem 51 
2214 IFUS=CHRS$(13) THEN223@ srem 186 
2215 PRINT"{RVS}";US; srem 156 
2217 IFUS=CHRS(2@) THENUSS=LEFTS(USS,LEN(USS)=-1) :US=""":rem 35 
2220 USS=USS+US$ srem 63 
2225 GOTO2209G srem 200 
2238 US=USS :PRINT: RETURN :rem 42 
3008 REM*** DATA FOR{3 SPACES }ASSEMBLING/DISASSEM-{2 SPACES}B 
LING srem 44 
3818 DATAILBRK,2ORA(X,X,X,X,20RAZ,2ASLZ,X,1PHP,20RA#,1ASLA 
srem 22 
3020 DATAX,X,30RA,3ASL,X,2BPL,20ORA(Y,X,X,X,20RAZX srem 58 
38936 DATA2ASLZX ,X,1CLC,30RAY ,X,X,X,30RAX, 3ASLX ,X srem 49 
3840 DATA3JSR,2AND(X,X,X,2BITZ,2ANDZ,2ROLZ,X,1PLP,2AND#,1ROLA 
xX :rem 179 
3858 DATA3BIT,3AND,3ROL,X,2BMI,2AND(Y,X,X,X srem 1906 
3868 DATA2ZANDZX ,2ROLZX,X,1SEC,3ANDY ,X,X,X,3ANDX,3ROLX,X 
:rem 28 
3070 DATALRTI,2EOR(X,X,X,X,2EORZ,2LSRZ,X,1PHA, 2EOR#,1LSRA,X 
srem 207 
3088 DATA3JMP,3EOR,3LSR,X,2BVC,2EOR(Y,X,X,X,2EORZX, 2LSRZX , X 
s:rem 29 
38098 DATAILCLI,3EORY,X,X,X,3EORX, 3LSRX,X,1RTS,2ADC(X,X,X,X 
srem 106 
3198 DATA2ADCZ,2RORZ,X,1PLA, 2ADC#,1RORA,X,3JMP(),3ADC,3ROR,X 
srem 141 
3118 DATA2BVS,2ADC(Y,X,X,X,2ADCZX,2RORZX,X,1SEI,3ADCY,X,X,X 
srem 216 
3120 DATA3ADCX ,3RORX ,X,X srem 229 
3130 DATA2STA(X,X,X,2STYZ, 2STAZ, 2STXZ,X, 1DEY,X, 1 TXA,X:rem 167 
3148 DATA3STY,3STA,3STX,X,2BCC,2STA(Y,X,X,2STY2ZX, 2STAZX ,2STXZ 
Y,X srem 207 
3158 DATALTYA,3STAY,1TXS,X,X,3STAX,X,X,2LDY#,2LDA(X,2LDX#,X 
srem 179 
3168 DATA2LDYZ,2LDAZ,2LDXZ,X,1 TAY, 2LDA#,1TAX,X s:rem 113 
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DATA3LDY,3LDA, 3LDX,X,2BCS,2LDA(Y,X,X,2LDYZX, 2LDAZX , 2LDXZ 


Y ,X srem 65 
DATAL CLV, 3LDAY,1TSX,X,3LDYX,3LDAX , 3LDXY,X s:rem 177 
DATA2CPY#,2CMP(X,X,X,2CPYZ,2CMPZ,2DECZ,X,1lINY,2CMP#,1DEX 
,X :rem 162 
DATA3CPY,3CMP,3DEC,X,2BNE,2CMP(Y,X,X,X,2CMPZX, 2DECZX,X 
s:rem 186 
DATA1 CLD, 3CMPY ,X,X,X srem 12 
DATA3 CMPX , 3DECX ,X,2CPX#,2SBC(X,X,X,2CPXZ, 2SBCZ, 2INCZ,X,1 
INX ,2SBC#,1NOP ,X srem 56 
DATA3CPX,3SBC,3INC,X,2BEQ,2SBC(Y,X,X,X,2SBCZX,2INCZX,X,1l 
SED ,3SBCY ,X,X,X srem 23 
DATA3SBCX , 3 INCX,X :rem 90 
IFMIDS(NMS ,2,3)="BRK"ORMIDS(NMS ,2,3)="BIT"THEN5@5: rem 24 
E=PEEK(L+1) :I FE=< 127 THENGG=L+E+2:GOTO1@G1@2 srem 42 
GG=L-254+E srem 69 
PRINTGG : E=2 :GOT054@ srem 7 
IFLEFTS (CDS ,3)="BIT"ORLEFTS (CDS ,3)="BRK"THEN39@ s:rem 1 
GG=VAL(NS ) :I FGG> LTHENGA=GG-L=-2 :GOTO1 29902 srem 5 
GA=254-L+GG srem 134 
POKEL+1,GA srem 126 
L=L+2 :GOTO33@ srem 47 
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special Characters in 
the Expanded VIC 


Generating and using custom character sets on the VIC is fun. Unfortunately, 
their use seems to be restricted to the unexpanded machine. This is because 
the VIC chip cannot “see’”” beyond memory location 7680, the top of un- 
expanded memory. This greatly limits the length of BASIC programs. 

If you have added 8K or more of memory, you can still POKE the 
character set by using POKE 36869,207 instead of 36869,255. To return to 
the original set, use 192 instead of 240. Unfortunately, this results in less 
memory for BASIC than not using the expansion memory. 

I have written a short program that allows character sets (yes, you can 
program more than one) and still uses all memory after screen memory. The 
trick is to move the screen memory to a location above the character set. 
Then, the start of BASIC has to be set to the end of screen memory. Using 
Jim Butterfield’s alternate screen program, I set the screen to memory loca- 
tion 4608. I then changed the start-of-BASIC pointers to memory location 
5120 and POKEd 5120 with 0. Once these moves were made, I could use the 
memory from 4096 through 4607 for the character set, and then POKE 
36869,204 to use the characters I had made. 

After running this program to initialize the VIC, you can load any pro- 
gram, but remember that the screen now starts at 4608. The color memory 
stays at 38400, and your character set starts at 4096. 


Using the Program 
First, type in and save Program 1 before running, or it will self-destruct even 
if typed in correctly! Now run it. The program will tell you if your DATA 
statements are correct. When it runs correctly, you will have a screenful of 
garbage. Simply hit RUN/STOP-RESTORE. The VIC is now initialized. Use 
the program as the first portion of a double load to allow the use of special 
characters with any length BASIC program. 

As for using multiple character sets, the screen and BASIC may be 
moved up again to allow as many as four character sets. To change the 
BASIC loader to allow this, you must change two of the numbers in line 60, 
three in line 65, and the checksum in line 20. The numbers to be changed in 
line 60 are the second and the last. The ones in line 65 are the third, sixth, 
and last (the number 20 in each case.) Use the following table to decide what 
number you wish. 
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For Change to Checksum POKE 36869 to 


2 sets 22 2465 205 
3 sets 26 2485 206 
4 sets 30 2505 207 


The second set will start at 5120, the third at 6144, and the fourth at 7168. 
BASIC will start 512 bytes above the highest character set. 

There is a small penalty if you use more than two character sets. Sets 3 
and 4 each have a block of 512 bytes below them that can’t be used by 
BASIC or the character sets. However, you can use these areas for two more 
screens or for machine language subroutines (perhaps a joystick routine). 
There is also a bonus: Using reverse video to print a character will cause the 
equivalent character from the next higher set to appear. For example, if the A 
in set 1 is changed to a smiling face, and the A in set 2 to a frowning face, 
when set 1 is in use, typing A will print a smiling face, and a reverse A will 
print a frowning face. 

Program 2 will show you a familiar face. After running it, call up your 
free bytes and gloat over the amount of memory you have left. 


Program 1. Characters 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,’ Appendix C. 


1 REM BASIC LOADER FOR 8K GRAPHICS srem 233 
5 PRINT"{CLR}" srem 153 
18 D=@:FORX=5588T05531 :READA: POKEX ,A:D=D+A:NEXT srem 172 
20 IFD<>2455THENPRINT"ERROR IN DATA": END srem 263 
38 C=0 :FORX=5288T05235: READA: POKEX ,A:C=C+A:NEXT srem 169 
46 IFC<>5288THENPRINT"ERROR IN DATA": END srem 211 
52 SYS5500 :rem 46 
68 DATA169, 20,133,44,133,46,133,48,133,50,141,130,2,169,1,141 

,129,2,169,9,141 ,9,2@ srem 210 
65 DATA141,1,20,141,2,20,76,80, 20 srem lll 
78 DATA169,15@0,141,2,144,169,18,141,136,2,162,0,169,146,232,1 

57,216,224,12,208 srem 45 
88 DATA25@,169,147,232,157,216,224,24,288,258,169,147,32,210, 

255,80 s:rem 229 


Program 2. Special Effects 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 


1 GOTO 190 srem 203 
4 PRINT" {CLR}">; : POKE36869, 204 :FORY=1TO7 :FORX=1TO7:PRINTAS ;" 
{2 UP}";:NEXTX:PRINT"{RIGHT}{2 DOWN}"; :NEXT srem 104 
5 GETBS :IFBS=""THENS srem 143 
6 POKE36869,192:PRINT"{CLR}BYE, BYE NOW. ":END srem 25@ 
18 FORX=4996T04607 : POKEX , PEEK( X+28672) :NEXT srem 14@ 
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20 


25 
39 


AG 
50 
60 


72 
80 


85 


98 

190 
119 
120 
130 
140 
19 
191 
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FORX=41 36T04143 : READA: POKEX ,A:NEXT: FORX=4200T042 23 : READA: P 


OKEX , A: NEXT s:rem 129 
FORX=4249T04247 : READA: POKEX ,A:NEXT :rem 95 
FORX=4256T04263 : READA: POKEX , A:NEXT:FORX=4280T04 287 : READA:P 
OKEX ,A:NEXT srem 154 
FORX=4296T043@03 : READA: POKEX , A:NEXT : FORX=4352T04359:READA:P 
OKEX ,A:NEXT :rem 154 
DATA193 ,9,8,09,0, 36, 36,9, 36,16,8,4,4,4,4,2,2,1,1,8,9,8,8,8, 
66,69,8,129,126,8,0,@ srem 135 
DATAD,129,66,60,08,0,195,182,0,7,8,16,32,32,33,35,64,128,12 
8,09,8,0,0,0,0,224,16,8 srem 233 
DATA4 ,4,132,196, 36,8,16,32,32,32,32,64 srem 9 
PRINT" {CLR}WHEN YOU WISH TO SEE{2 SPACES}THE SPECIAL EFFEC 
TS{3 SPACES}JUST PRESS F1" :rem 226 
PRINT" {DOWN}WHEN YOU WISH TO STOP THE PROGRAM PRESS F7" 
s:rem 165 
GETBS : I FBS=""THEN9@ srem 247 
AS="TRY{DOWN}{3 LEFT}ME {DOWN}{3 LEFT }NOW" srem 204 
PRINT" {CLR}{8 DOWN}{9 RIGHT}"AS srem 232 
GETBS : I FBS="{F1}"THENGOSUB1LOBD :rem 126 
IFBS="{F7}"THENF=1 :GOTO4 srem 28 
GOTO1 26 :rem 97 
@ IFPEEK( 36869 )=192 THENPOKE36869 , 204 : RETURN srem 249 
@ IFPEEK( 36869 )=204THENPOKE36869 ,192 : RETURN :rem 250 
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Faster BASIC 


One minor annoyance programmers face when working with the VIC is 
reading the joystick. The designers could at least have put all the inputs in a 
single memory location instead of scattering them all over the place. A 
BASIC command would have been nice, too. 

Another problem is the screen manipulation. PEEKs and POKEs are too 
slow and cumbersome for really fast and efficient games. Again, another 
BASIC command or two would have been useful. 

“Joyfast’” and “Fasplot’’ make use of the VIC USR function. Fasplot also 
uses the USR function for looking at the screen, but it uses the SYS com- 
mand in place of POKE. 

In the BASIC ROM, there are subroutines to get and convert numbers 
from BASIC lines to machine language. Location 56475 ($DC9B) takes the 
value in the floating-point accumulator and converts it to an integer number. 
Its complement location, 54161 ($D391), converts the A and Y registers to 
floating-point. Location 52989 ($CEFD) checks for a comma, location 52638 
(SCD9E) gets the number after the comma, and location 55287 ($D7F7) con- 
verts the number to a positive whole number from 0 to 65535. 

Program 1 is Joyfast. USR(0) returns the fire button status. A one means 
the fire button is depressed, and a zero means that it is up. USR(1) returns 
the joystick direction from 0 to 8: 

USR(1) Direction 
0 Center 

N 

NE 

E 

SE 

S 
SW 

W 
NW 


Program 2 is Fasplot. USR(0),x,y returns the character number at column 
x, row y. USR(1),x,y returns the color of the location at column x, row y. 
And SYS address,x,y,i,j puts the character number in variable i at column x, 
row y, and colors it with the color number in variable j. The program dis- 
plays the address to use based on your particular memory configuration. 


COND OFF ® WN 


A Bug 
Because I wanted to conserve as much memory as possible, one bug remains. 
Whenever you use the SYS, the USR(0), or the USR(1) function in Fasplot, 
the cursor location is altered to the location looked at or plotted to. This may 
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not be much of a problem, but it can upset programmers when they are try- 
ing to write a game and the score keeps flying all over the screen. 


Program 1. Joyfast 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 


1 A=PEEK(55)+PEEK( 56) * 256-190 :A%=A/256:POKE56 ,A% : POKE55 ,A-A%* 


256:CLR srem 37 
2 POKE®,76:POKE1],PEEK(55) :POKE2,PEEK(56) :Q=PEEK(1)+PEEK(2)*25 

6 :H=Q+68 : L=H+16 srem 199 
3 HH=INT(H/256) :HL=H—HH* 256 :LH=INT(L/ 256) :LL=L-LH* 256:rem 195 
18 DATA120,32,155,220,165,101,208,15 srem 4 
2@ DATA173,17,145,162,9,160,8,41 srem 66 
38 DATA32,208,43,160,1,208, 39,201 srem 120 
49 DATA] ,208,39,169,127,141,34,145 srem 186 
5@ DATA173,32,145,42,42,41,1,133 srem 70 
6@ DATA255,169,255,141,34,145,173,17 srem 38 
70 DATA145,74,41,14,5,255,170,188 srem 142 
88 DATAHL,HH,189,LL,LH,179,138,32 srem 65 
99 DATA145,211,88, 96 srem 26 
100 FORJ=QTOQ+67 :READAS :A=VAL(AS) :I1FAS="HL"THENA=HL :rem 198 
11@ IFAS="HH"THENA=HH s:rem 212 
126 IFAS="LL"THENA=LL srem 229 
1380 IFAS="LH"THENA=LH :rem 222 
14@ POKEJ,A:NEXT srem 244 
1590 FORJ=@TO15:READA srem 212 
168 POKEJ+H,A:POKEJ+L,@:NEXT srem 239 
L7G: DATR: t54 6 Gee S pep pee ey lols srem 92 


Program 2. Fasplot 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,”” Appendix C. 


@ A=PEEK(55)+PEEK(56)*256-130:POKE56,A/256:POKE55 ,A-PEEK (56) * 


256:CLR s:rem 95 
1 S=PEEK(55)+PEEK(56)*256:XX%=PEEK(56) :XX=PEEK(55) :Y=S+12:YY% 

=Y/256 : YY=Y-YY%* 256 srem 25 
2 X=S+45 :POKE@,76:POKE2,X/256:POKE1 ,X-PEEK( 2) *256 :rem 133 
10 DATA32,253,2906,32,158,205,32,247 :rem 226 
26 DATA215,165,101,96,32,126,29,165 :rem 234 
38 DATA1@1,201,22,16,21,133,254,32 :rem 155 
40 DATA126,29,165,1901,201,23,16,19 srem 164 
5@ DATA133,255,164,254,170,24,32,2408 :rem 21 
60 DATA255,96,76,72,2190,120,32,155 s:rem 187 
76 DATA220,162,0,165,191,2406,2,162 :rem 161 
80 DATA126,134,253,32,138,29,165, 2089 :rem 30 
98 DATA133,247,165,210,191,253,133,248 :rem 123 
196 DATA164,211,177,247,166,253,240,2 z:rem 73 
1190 DATA41,15,168,169,0,32,145,211 :rem 173 
120 DATA88,96,120,32,138,29,32,126 s:rem 189 
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DATA29, 165,101,133, 252,32,126,29 :rem 29 
DATA165,191,133,253,165,209,133,243 srem 169 
DATA165,210,1905,120,133,244,164,211 srem 156 
DATA165,252,145,209,165,253,145,243 srem 184 
DATA88 , 96 srem 189 
FORJ=STOS+129 : READA: POKEJ ,A:NEXT srem 71 
POKES+14, XX% : POKES+13 , XX : POKES+25 , XX% : POKES+24 , XX : POKES+9 
6,XX% : POKES+95 , XX srem 212 
POKES+163 , XX% : POKES+102, XX: POKES+61 , YY% : POKES+6@ , YY 

:rem 166 
PRINT"SYS"S+9@",X,Y,CHR,COL" s:rem 1794 
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Paddle Graphics 


When I was a child, one of my favorite toys was a plastic drawing board. It 
had two knobs, one for horizontal and one for vertical, and they controlled 
the movement of a stylus beneath the board’s clear plastic ‘‘screen.”” Now 
the VIC-20 can be programmed to do much the same thing. Game paddles 
serve the function of horizontal and vertical controls, and the VIC has the 
added advantage of being able to draw (on a television screen) in color. 

I first tried writing such a program in BASIC, and it worked beautifully 
except for one major flaw: The human hand is faster than BASIC. Unless the 
paddles were turned very slowly, the program would skip across the screen, 
leaving a trail of widely spaced dots rather than a solid line. Machine lan- 
guage was the logical solution. 

Another problem cropped up once I began to get the program working 
in machine language. The two analog-to-digital converters in the VIC are not 
extraordinarily stable. Since those A/D converters are what makes the pad- 
dles work, that means the paddles are pretty jumpy. 


Reading the Paddle 
The flicker problem can be reduced through programming. The ‘Paddle 
Graphics” program does this by reading each paddle 128 times, adding the 
values together, and then dividing the sum by 128 to get an average value. 

The fact that 256 additions are performed in a fraction of a second 

should give you an idea of how fast machine language operates. The more 
readings that are averaged, the less flicker there will be. However, there is a 
greater chance of the program skipping across the screen, because the 
averaging slows the program slightly. Taking 128 readings on each paddle is 
essentially a compromise between the two concerns. Also, it is no accident 
that the number of readings is a power of two. That greatly simplifies the di- 
vision. To divide a binary number by 128, its bits simply are shifted seven 
places to the right. 


Using Paddle Graphics 
When the program is run, it first displays its name, ‘Paddle Graphics.” Then 
the screen shrinks to about half its usual area and is filled with multicolor 
garbage. You can clear the screen by pressing the RETURN key. Now you 
are ready to draw. You have four colors to chose from: background white, 
which is activated by the f1 key; cyan, f3; purple, £5; and green, f7. Cyan 
and purple may seem like strange colors, but there are reasons for them. If 
nothing appears when you move the paddles, try changing the colors by 
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pressing the fl key. Cyan is used because it is the normal border color. Pur- 
ple serves as a brighter alternative to the VIC’s somewhat dull red. You can 
give yourself a different selection of colors by modifying the machine lan- 
guage program. We’ll get into that later. 


Entering the Program 
Paddle Graphics is in the form of a BASIC loader program. First, unplug any 
memory expanders you might have. Next, enter the following line before 
entering the program: 


POKE 44,18:POKE 4608,0:NEW 


If you forget to enter these POKEs, don’t worry. Just finish typing and save 
the program. Then enter the POKEs and reload. 

Now enter the program. Save it before you run it! When you run the 
BASIC loader, it will check its DATA statements for errors before POKEing 
the numbers into memory. If there are any errors, their line numbers will be 
listed on the screen, and the loader will stop so that you can correct those 
lines. (Lines 80 and 90 are treated as one line. An error in either will produce 
‘’80-90’’.) If there are no mistakes in the DATA statements, the loader will 
announce DATA OK—STORING and give you a READY when it finishes. If, 
instead, you get SYNTAX ERROR IN 70, you have forgotten to enter the line 
above. 

Once you get it right, the loader will transform itself into a new pro- 
gram. LIST will reveal three lines of BASIC you’ve never seen before. Save 
the new program. Now, Paddle Graphics is ready to run. As a side effect of 
the BASIC loader, it may draw in two colors at once, but as soon as you hit 
a function key, that will be corrected. 


Changing Colors 
If you want to fiddle with the color choices, turn to the screen and border 
color chart on page 134 in the computer manual (or page 265 in the Pro- 
grammer’s Reference Guide). The screen and border colors (f1 and f3, respec- 
tively) are independent of the Paddle Graphics program. You set them by 
POKEing a number from the chart into location 36879. You can pick from 16 
colors for the screen and 8 for the border. For example, an orange screen 
with a black border is 136. Stopping the Paddle Graphics program with the 
RUN/STOP key will reset the screen to its normal white with cyan border 
and will allow you to POKE 36879 with your color choice. 

The other two colors, the character color (f5) and the auxiliary color (f7), 
are controlled by the program. To change them you will have to modify the 
program, but fortunately that is only a matter of making a few POKEs once 
you have loaded it. 
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There are eight character colors, the same eight as for the border, and 
they are indicated by the numbers 0-7. If you look at the color chart again, 
the border colors across the top begin with black (0) and end with yellow (7). 
Add 8 to that number and POKE the sum into 4284. Add 512 to that address 
if you have 8K expansion or greater. Subtract 3072 for 3K expansion. For ex- 
ample, to get yellow with 8K, POKE 4796,15. 

The auxiliary color can be any of the 16 colors also available to the 
screen. Black, at the top of the list, is again 0. Light yellow, at the bottom, is 
15. Multiply that number by 16 and POKE the product into 4305 or the 
equivalent location. Pink with 8K would require POKE 4817,160. 


Paddle Graphics 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


18 PRINT"{CLR}CHECKING DATA":CLR:V=@ srem 51 
260 S=G:FORQ=0TO24:READR: S=S+R:NEXTQ:READR: IFS<>RTHENPRINE"8@ 
{SPACE}- 98":V=1 srem 162 
380 FORZ=9TO31 :W=0 :FORY=@TO15 : READX :W=W+X :NEXT: RN ADX:IFX<>WTHE 
NPRINT5O900+Z*19, :V=1 :rem 48 
40 NEXT: ILFV=1THENSTOP :rem 165 
58 CLR:PRINT"DATA OK —- STORING" :rem 88 
68 FORS=828T0852 :READR: POKES, R:NEXTS: READX :rem 29 
70 FORZ=0TO31 : FORY=@TO15 : READX : POKE4096+2Z* 16+Y ,X :NEXTY : READX: 
NEXTZ srem 193 
80 DATA162,1,169,16,134,43,132,44,162,246,160,17,134,45,132 
:rem 122 
98 DATA46,134,47,132,48,134,49,132,58,08, 2362 :rem 165 
1898 SYS828 :rem 52 
58900 DATAS ,62,16,19,0,153, 34,147,8,17,17,17,17,17,17,17, 549 
:rem 125 
581d DATA29, 29, 29,29, 88,65,68,68,76,69,32,71,82,65,88,72,944 
:rem 235 
5820 DATA73,67,83,34,58,153, 34,17,29,29,29,66,89, 32,74,65,932 
:rem 22 
5836 DATA77,69,83,32,67,65,76,76,79,87,65,89, 34,8,77, 16,992 
:rem 204 
5840 DATA29,0,129,83,178,48,164,55,48,48,58,138,9,104,16, 38,1 
ek :rem 121 
5050 DATA®, 158, 40,194,46,52,51,41,178,194,48,52,52,41,172,58, 
1347 z:rem 165 
5J6d DATA53,54,176,49,48,57,41,0,9,80,8,0,9,9,169,11,652 
z:rem 167 
5876 DATA141,0,144,169,37,141,1,144,173,2,144,41,128,9,16,141 
, 1431 srem 212 
5680 DATA2 , 144, 169,32,141,3,144,173,5,144,41,240,9,13,141,5,1 
406 :rem 112 
5896 DATA144,169,0,168,0,174,136,2,132,251,134,252,145, 251,20 
@,24,2174 :rem 151 
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51080 
5110 
5120 
5130 
5146 
515d 
5160 
5170 
5188 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5286 
5290 
5380 


53198 
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DATA195,1,24,192,0, 208, 245, 24,169,9,173,2,144,41,128,162 
, 1609 srem 202 
DATA15@, 201,128, 240,2,162,148,134,252,162,9,169,12,145,2 
51,200,2356 srem 244 
DATA24, 208,250, 232,230, 252,224,2, 208,243, 24,173,14,144,4 
1,15,2284 s:rem 149 
DATAO, 80,141,14,144, 32, 225,255, 208,3, 32, 219,254, 32,228, 2 
55,2122 srem 54 
DATA2@01,13,208,27,169,9,162, 29,132,251,134,252,169,8,145 
s290L¢2125 s:rem 139 
DATA24, 200, 208, 250, 232, 239,252, 24, 224, 28, 208, 242,24,144, 
214,56,2560 srem 251 
DATA233,133,144,8,24,291,4,176,3,141,60,3,24,162,0,134,1 
450 srem 1094 
DATA251,134, 252,134, 253,134,254, 24,173,8,144,1@1,251,133 
,251,144,2641 srem 102 
DATA2 , 230,252, 24,173,9,144,191,253,133,253,144,2,230,254 
7 24,2228 srem 103 
DATA232, 224,128,208, 226,102,252,102,251,24,102,254,102,2 
53,24,232,2716 s:rem 140 
DATA2 24,135, 208,241, 24,144,2,144,148,165,251,133,251,24, 
106,186,2298 s:rem 46 
DATA1@6,1906,41,15,133,252,165,251,24,196,41,6,133,251,16 
5,253,2048 srem 202 
DATA73, 255,133, 253, 24,106,106,106,196,41,15,133,254,165, 
253,24,2047 srem 2 
DATA1@6,41,6,133, 253, 24,169,9,162,9,6,252, 232,42, 24,224, 
1674 :rem 162 
DATA7, 208, 247, 24,1805,20,141,62,3,169,0,162,90,24,6,254,14 
32 :rem 60 
DATA232,144,1,42,24,224,3,208,245, 24,109,62,3,141,62,3,1 
527 srem 110 
DATA24,144,2,144,162,165,251,1801,254,144,3,238,62,3,24,1 
01,1822 srem 52 
DATA252,144,3,238,62,3,133,251,173,62,3,133,252,234,162, 
8,2105 srem 4 
DATA169,192,228, 253,240,5, 232,106, 24,144, 247,73,255,160, 
0,49,2377 srem 139 
DATA251,145,251,200,145,251,173,69,3,24,106,106,1906, 24,1 
62,0,2007 :rem 143 
DATA2 28, 253, 249,5,232,106,24,144,247,160,80,17,251,145,25 
1,29090,2583 srem 194 
DATA145, 251, 24,144,174,08,08,9,0,9,9,9,0,0,9,%9,738 :rem 34 
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vic Graph 


Many VIC-20 users want to use custom characters in their programs, but 
there seems to be a lot of confusion over how to handle them. My interest in 
custom characters is in their use for graphic displays of numeric data. This 
involves a process known as bitmapping, where each pixel (dot) on the 
screen (or portion of the screen) may be turned on or off individually. 

In the VIC-20, the video chip can get its character data from several areas 
of memory. The address of this data is controlled by the register at 36869 
(lower four bits). To use custom characters, it must be set for an area of 
RAM. The starting address for the data may be 4096, 5120, 6144, or 7168 as 
well as several ROM addresses. 

The position of the screen in memory is controlled by two registers— 
36869 (upper four bits) and 36866 (bit 7). The screen may be placed any- 
where between 4096 and 8191 in 512-byte increments. This means that there 
are about 64 possible combinations of character/screen placement, although 
some of these will result in strange screen displays. The corresponding 
POKEs are detailed in the VIC Programmer's Reference Guide. For everything 
to work properly, the screen, characters, and program must be in separate 
areas of memory. 

To be sure that BASIC doesn’t change the screen or character data when 
using custom characters, it is necessary to change the start-of-BASIC pointer 
(43-44), or the top-of-strings pointer (51-52) and top-of-memory pointer 
(55-56). With the 8K (or 16K) expander, the screen is placed at 4096 on 
power-up with the start of BASIC at 4609. For custom characters, I place the 
character data at 4096 and move the screen to 5120 (for 64 characters) or 
5632 (for 128) or 6144 (for 256). The start of BASIC must then be set above 
the end of the screen. Note that the start-of-BASIC pointer must be changed 
before the program is loaded. 

My solution to this is to record a short program with the required 
POKEs immediately before my graphics program. Program 1, which requires 
8K or more memory expansion, will move the screen to 6144, and the start 
of BASIC to 6657, leaving space to program 256 characters (2K). Line 10 
moves BASIC and line 20 moves the screen. 

Program 1 erases itself when run so be sure to save a copy before run- 
ning. After generating your custom characters, POKE 36869,236 to use them 
on the screen, or POKE 36869,224 to return to the regular characters. | 
usually copy some of the ROM characters into RAM—the first 64 include the 
letters, numbers, and punctuation—so that I can display graphics and regular 
text at the same time. 
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| The Start of BASIC 


A word about that POKE in line 10: In order for a program to run, the byte 
immediately preceding the start of BASIC must contain zero. On power-up 
with, say, the 8K expander, the start of BASIC is at 4609. There will always 
be a zero at 4608. If the start of BASIC is changed, that zero must be POKEd 
into the new location or a program will not run, although it will list. To 
demonstrate this, load a program and POKE 4608,1 (or any other number 
except zero). The program will still list, but a RUN will result in a SYNTAX 
ERROR. Now, POKE 4608,0 and the program will again run normally. (For 
the unexpanded VIC, it’s 4096.) 

With the unexpanded VIC (or 3K expander), it is not necessary to 
change the start of BASIC, since the screen and character data may be placed 
at the top of memory. The POKEs to change the top of memory and top of 
strings may now be placed in the main program. 


Not All or Nothing 


One misconception is that creating custom characters is an all-or-nothing 
situation. By setting the character data pointer to 7168 and the screen at 
6656, it is possible to have 128 custom characters and still use the normal 
ROM characters without copying them into RAM. Printing reversed charac- 
ters will now print the normal (unreversed) character set. This technique al- 
lows graphics and regular text in the same display without using up too 
much of the VIC’s limited memory. 


Using the Programs 
Programs 2 and 3 are adaptations of one of my data plotting programs. Pro- 
grams 1 and 2 are for the 8K expander, while program 3 is for the un- 
expanded VIC (or 3K expander). In each case, lines 6000-6180 comprise a 
subroutine that can be added to your programs. To use them, load your data 
into an integer array, A%. Put your title into a string variable, N$. A GOSUB 
6000 will now display your data as a graph. Press any key to return to the 
main program. The routine automatically scales the graph to fit the data and 
prints the high and low limits on the screen. Note that only integer data in 
the range from —32768 to +32767 may be used. Remember, with an 8K 
expander, Program 1 must be loaded and run first. 

I have made extensive use of multiple statements per line in addition to 

using the integer array in order to save memory. In an unexpanded VIC, 
Program 3 will leave about 1.6K for your main program. 
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Program 1. 8K Setup 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,”” Appendix C. 


18 
2 
56 


POKE44, 26: POKE6656,@ :rem 40 
POKE648 , 24: POKE36869, 224 :rem 2 
PRINT" {CLR}":NEW s:rem 237 


Program 2. Graph Expanded 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


1@ DIMA%(95) :FORI=8T0511 :POKE4996+1,PEEK(32768+1) :NEXT ; 
:rem 19 

26 FORI=4096T041903 : READJ: POKEI,J:NEXT: DATAG ,8,9,8,8,9,9,@ 
srem 132 
30 FORI=60T095 :A%(I)=SIN(I/12)*100:NEXT srem 210 
40 NS="PLOT OF SIN FUNCTION" srem 123 
58 GOSUB680¢8 srem 171 
60 END srem 61 
6008 HI=-32768 :LO=32767:FORI=0TO95 srem 2906 
6018 IFHI<A$%(1I)THENHI=A$% (TI) srem 32 
6020 IFLO>A%(I)THENLO=A% (I) s:rem 55 
6030 NEXT: DF=HI-LO srem 98 
6048 POKE36869, 236 :POKE36879, 25 srem 221 
6858 PRINT" {CLR}" srem 47 
6860 FORI=37888TO 38393 : POKEI ,6:NEXT srem 133 
6078 FORI=4608T06143:POKEI,@:NEXT srem 4 
6080 FORI=@6TO11 : FORJ=6TO15 : POKE6173+22*J+I,64+16* I+Jd : NEXT :NEX 
T srem 4 
6898 FORI=0TO13 : POKE6150+I ,@:POKE6524+1,3:NEXT srem 251 
6190 FORI=OTO1L5 :POKE6172+22*1I,@:POKE6185+22*1I,4:NEXT :rem 24 
6120 HIS=STRS(HI) :LOS=STRS(LO) srem 249 
6130 PRINT" {HOME} {DOWN}"TAB(6-LEN(HIS))HIS:PRINT"{14 DOWN}"TA 
B(6-LEN(LOS) )LO$S :PRINT"{3 DOWN} "NS :rem 198 
61490 FORX=98T095 srem 136 
6158 Y=INT(127*(HI-A%(X) )/DF) : BY=4608+128* INT(X/8)+Y:BI=8* INT 
(X/8)+7-xX srem 219 
6168 POKEBY,PEEK(BY)OR(2TBI) :NEXT srem 9G 
6170 GETZS :IFZS=""THEN6172 s:rem 241 
618@ POKE36869,224:PRINT"{CLR}":RETURN :rem 138 


Program 3. Graph Unexpanded 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


POKE52, 26:POKE56, 26:CLR :rem 14 
DIMA$%(79) s:rem 99 
FORI=60TO79 :A%$(I)=SIN(1I/12)*1@0:NEXT srem 212 
NS="PLOT OF SIN FUNCTION" srem 123 
GOSUB698982 srem 171 
END srem 61 
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6800 
6810 
6826 
6030 
6940 


685 
BOD 
6076 
6880 


6890 
61900 


6110 
6120 
6130 
61408 
6158 
6160 


6170 
6180 
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HI=-32768 : LO=32767:FORI=0TO79 srem 208 
IFHI<A$%( I) THENHI=A$3 (I) srem 32 
IFLO>A$%( I) THENLO=A%(I) srem 55 
NEXT: DF=HI-LO srem 98 
POKE36869, 239: POKEG48, 26: POKE36879,25:PRINT" {CLR}" 
| sreim 29 
FORI=60656TO7161:POKEI,16@0:NEXT :rem lll 
FORI=384090TO0389905 :POKEI,O0:NEXT srem 113 
FORI=7168T08127:POKEL,0:NEXT srem 12 
FORI=@0TO9 :sFORJ=0TO11 : POKE66854+22* J4+1,1L2* [+3 2:NEXT:NEXT 

srem 70 
FORI=0TO9 : POKE6663+1,192:POKE6949+1,192:NEXT :rem 188 
FORI=0TO11 :POKE6684+22*1,221 :POKE6695+22*1,221L:NEXT 

srem 236 
POKE6662, 240 : POKE6673 , 238 : POKE6948 , 237 : POKE6959, 253 

srem 173 
HIS=STRS$ (HI) : LOS=STRS (LO) srem 249 


PRINT" {HOME } {RVS} {DOWN }"TAB(6-LEN(HIS))HIS:PRINT" 
{1@ DOWN}{RVS}"TAB(6-LEN( LOS) )LOS:PRINT"{3 DOWN} {RVS} "NS 


srem 184 
FORX=8T079 srem 138 
Y=INT (95* (HI-A%(X))/DF) :BY=7168+96* INT(X/8)+Y:BI=8* INT(X 
/8)+7-X srem 126 
POKEBY , PEEK(BY)OR(2TBI) :NEXT srem 90 
GETZS$ s IFZS=""THEN6172 srem 241 
POKE648, 38: POKE36869 , 240:PRINT" {CLR}": RETURN srem 34 
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sprite-Imation 


Sprites are high-resolution, smoothly moving characters often used in 
graphic displays and game programs. Formerly, sprites were available only 
on computers equipped with special hardware, but now the VIC can also cre- 
ate sprites for a wide variety of uses. People familiar with sprite program- 
ming on the Commodore 64 should have no problem adapting sprites for 
use on the VIC. 


Sprites 

First, let’s get the machine language program necessary to create the sprites 
in memory so that you can experiment as you read. Once you have the ma- 
chine language routine in memory, all commands can be entered through a 
BASIC program. But more on that later. 

Turn your VIC off and attach an 8K or greater expander. (Although 
“Sprite-Imation” needs no expansion, the loader program does.) Now type in 
and save Program 1 using the filename SPRITE LOADER. Program 1 is a 
BASIC loader program that will write the machine language program to disk 
using the filename SPRITE-IMATION. Tape users should change the ,8,0 in 
line 50 to ,1,0. When you have saved Program 1, enter the following line in 
direct mode: 


POKE 44,30:POKE 7680,0:NEW 


Now, load Program 1 and run it. The program will take about a minute 
to POKE the machine language program into memory and save it out to disk 
or tape. If you have made an error, the program will tell you. Correct the 
data, resave the program, and run it again. If the program runs successfully, 

ou will have the machine language on tape or disk under the filename 
SPRITE-IMATION. 

Sprite-Imation works with an unexpanded VIC or with 3K expansion 

memory. To use it, load the machine language: 


LOAD “SPRITE-IMATION”,8,1 (use ,1,1 for tape) 

Once it is loaded, enter 

SYS 6000 

to activate the machine language. You'll see a new startup screen with 
oprite-Imation printed across the top. Now, type in Program 2, the demo 
program, save it, and then run it. 


The remainder of this article will explain what you'll need to know to 
use this routine to create your own sprite. 
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| What Shape? What Color? Where? 


All you have to do is tell Sprite-Imation what shape to be, what color to be, 
and where to be drawn on the screen. Sprites may be any of 8 colors in stan- 
dard mode or any of 16 colors in multicolor mode. Control of the sprites 
may be accomplished via special BASIC commands, POKE statements, or 
6502 machine language. Four sprites are available on the VIC, and these are 
larger than the standard-sized sprites available on other Commodore 
computers. 


Features of the VIC sprites 

. 16 horizontal bits X 24 vertical bits 
. Individual color control of sprites 

. Sprite multicolor mode 

. Variable sprite-to-sprite priority 

. Sprite-sprite collision detection 

. Sprite-background collision detection 


OH Or ®P CO NO eR 


These capabilities make it simple to program large, smoothly moving 
characters on the VIC. Using the special graphic commands available 
through Sprite-Imation, it is possible to produce high-quality, animated 
graphic displays in BASIC. 

Sprite-Imation creates four sprites numbered 0-3. To create a sprite, the 
proper numbers must be POKEd into each of five registers, or used with the 
BASIC commands GR (the back-arrow character) to clear the screen and en- 
ter sprite mode, SP (the @ character) to give each sprite its position, and D (£ 
character) to draw the sprite. (Each of the three BASIC commands will be 
printed on the VIC screen with a special reverse-type character.) 

Figure 1 is a chart of the sprite registers. Although it may appear com- 
plicated, only three registers are necessary to create a sprite in addition to its 
X,Y position registers. 


Defining the Sprite 
The sprite is defined in the same way that custom characters are defined, but 
more data is required since the sprite is larger. The sprite consists of six 
characters, therefore a total of 48 bytes are needed to define a sprite. This 
data may be placed in any portion of memory with some exceptions. Data 
cannot be placed in memory below 1020 ($03FC) or in the area occupied by 
the Sprite-Imation program, 5754-6144 ($167A-$1800) and 7136-7679 
($1BEO-$1DFF). The remaining memory of 2649 bytes may be used to store 
data or programs. Even more memory is available with 3K expansion 
memory. 
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The most efficient place for data is within the redefined character matrix, 
6144-6656 ($1800-$1A00). However, care must be taken here since the user 
should not place data in the same memory occupied by the alphabetic or nu- 
meric sequence. A complete memory map of Sprite-Imation is shown in 
figure 2. 


Figure 1. Important Sprite-Imation Registers 
Sprite Number 


Function 
Location of sprite data 


Position of sprite on screen (X) 
Position of sprite on screen (Y) 
Enable sprite (on if <> 0) 


Sprite multicolor mode (on if <> 0) 


Sprite foreground color (0-7) 


Sprite auxiliary color (0-255) 
Sprite-sprite collision (0=none) 
oprite-background collision (0 =none) 
Number of sprites (1-4) 

Alternate joystick register (X: 0-2) 
Alternate joystick register (Y: 0-2) 


Alternate joystick register (fire button) 


1 
721 


2 
722 
$02D2 
734 
$02DE 
735 
$02DF 
742 
$02E6 
746 
$02EA 
752 
$02FO 
36878 
$900E 
758 
$02F6 
764 
$02FC 
725 
$02D5 
726 
$02D6 
727 
$02D7 
728 
$02D8 


3 
723 
$02D3 
736 
$02E0 
737 
$02E1 
743 
$02E7 
746 
$02EA 
753 
$02F1 
36878 
$900E 
759 
$02F7 
765 
$02FD 
725 
$02D5 
726 
$02D6 
727 
$02D7 
728 
$02D8 


One method of placing sprite data within the character matrix is to first 
POKE 36869,240. This moves the character matrix from 6144 to its default 
value at 32768. However, if this is done, you must POKE 36869,254 before 
sprites are placed on the screen. Also, characters cannot be printed or POKEd 
onto the same screen as sprites are located with this method. This method 
does let you use as many as four sprites and 40 custom characters simulta- 
neously, however. While the Sprite-Imation program is running with 254 in 
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36869, only the first 64 characters of the character matrix may be used. All 
reverse characters and graphic characters are unavailable unless register 
36869 is returned to its default value of 240. 

Another place to locate sprite data is below the Sprite-Imation program. 
To do this, you must lower the top of memory below the sprite data. 


Figure 2. Large-Scale Memory Map of Sprite-Imation 


Start End 


Function Address Address 


Sprite-Imation registers 

and data 
Vector addresses and 

system variables for sprites 
3K Expansion RAM memory 


User BASIC memory in RAM 


Sprite-Imation interpreter 
and subroutines 

Sprite-Imation character 
matrix in RAM 

Sprite-Imation work area 
and main program 


720 
$02D0 
766 
$02FE 
1024 
$0400 
4096 
$1000 
5754 
$167A 
6144 
$1800 
6656 
$1A00 


769 
$02FD 
1020 
$03FC 
4095 
$OFFF 
9/99 
$1679 
6143 
$17FF 
6655 
$19FF 
7679 
$1DFF 


sprite data is calculated in the same way that data is calculated for 
custom characters. The difference between VIC-20 sprites and Commodore 
64 sprites is that VIC sprite data is calculated vertically instead of hori- 
zontally as 


Byte 0 Byte 24 
Byte 1 Byte 25 
Byte 2 Byte 26 
Byte 23 Byte 47 


To calculate the sprite data, you must first draw your sprite on a grid of 
16 dots X 24 dots. Graph paper is the easiest thing to use for this purpose. 
Outline an area corresponding to the 16 block X 24 block size of the sprite. 
Fill in the blocks in the pattern of your sprite. The blocks that are filled in 
will appear to be “on” when the sprite is projected onto the screen. Any 
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background characters placed on the screen will appear to be behind your 
sprite. 

The computer, however, cannot tell what a sprite looks like until the 
shape of the sprite is given to it in the form of data. The computer requires 
numbers that it can understand, and you must calculate these numbers for 
the computer. 

Using two 8 X 24 grids you can calculate the values; figure 3 is an 
illustration. Just fill in the boxes you need. Then, using the values at the top 
of each column, add the values of the filled-in boxes for each row. 


Figure 3. Sprite Grid Illustration 


Ge nos wa oa = 
aan fF FP FP WO WD OU FP SF FPN KF KF WD W 


oa > Re > a o> en > a) 


sound 
and Graphics 


This data can now be POKEd into memory but Sprite-Imation must also 
be told where in memory to find sprite information. This is done by 
POKEing the proper number into registers 720-723 ($02D0-$02D3). Memory 
is divided into 48-byte blocks for this purpose, and the number N used in 
registers 720-723 may be multiplied by 48 to find the location of the sprite 
data. 


Demonstration 


A simple demonstration program is given below. The REM statements in the 
program may be deleted since they serve only to clarify the program and do 
not affect its function. 


19 POKE56,22:POKE52,22:POKE55,32:POKE51,32:REM LOWER TOP OF M 
EMORY 

20 FORI=5664T05711:READA: POKEIL,A:NEXT:REM POKE SPRITE DATA IN 
TO MEMORY 

38 DATA3,3,1,1,7,4,4,4,15,8,63,63,234,234,234,255,246,255,9,@8 
,9,0,0,0 

40 DATA192,192,64,64,224,32,32,32,240,16,252,252,87,87,87,255 
glil>,295 

5@ DATAG,9,9,0,0,0 

60 POKE720,118:REM TELL SPRITE @ WHERE TO FIND DATA 

70 POKE75@,7:REM MAKE SPRITE @ YELLOW 

80 POKE36879,1986:REM MAKE SCREEN BLUE 

98 POKE725,1:REM MAKE ONLY FIRST SPRITE 

100 LET <:REM SPRITE MODE 

119 FORI=@TO220:LET @ 9,I,1I:REM POSITION SPRITE @ 

120 LET £:NEXT:REM DRAW SPRITE 

138 GOTO119 


The sprite can be drawn in multicolor mode with the addition of the 
following statements: 


94 POKE746,1:REM PUT IN MULTICOLOR MODE 
96 POKE36878,255:REM GIVE AUXILIARY COLOR 


Multicolor sprites are defined in terms of “bit pairs” instead of bits. Each 
bit pair can represent one of four colors: 


00 = Background color 
01 = Border color 


10 = Foreground color 
11 = Auxiliary color 
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| sprite Positioning 

Once the sprite is defined, it must be placed on the screen. You can do this 
in two ways: You can POKE the X,Y coordinates of the sprite into the po- 
sition registers shown in figure 1, or you can use the SP statement (@ key) 
with X,Y coordinates. The proper syntax for this statement is 


LET SP N,X,Y 


If this statement is used at the end of a line, it must be followed by a 
semicolon. Multiple Sprite-Imation statements may follow a single LET 
statement: 


LET SP 0,X,Y:SP 1,X,Y:SP 2,X,Y:SP 3,X,Y:D 


where the D statement (£ key) implements the Sprite-Imation program. Any 
X or Y between 32 and 208 will appear on the screen. 


Turning a Sprite Off 
A sprite is turned on by placing a one in its enable register shown in figure 1 
or by using the Sprite-Imation SP statement. Once turned on, it will remain 
on until a zero is POKEd into its enable register. Also, a sprite may be tem- 
porarily turned off by placing a lower number in register 725 ($02D5). For 
instance, a two placed in 725 will cause the Sprite-Imation program to draw 
only sprites 0 and 1. If a one is placed in 725, it would produce only sprite 0. 
The fewer sprites used in this manner, the faster the sprites may be moved 
around on the screen. 


Program 1. Sprite Loader 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 


1@ PRINT" {CLR}PLEASE WAIT..." srem 62 
28 FORI=5754T06658 : READA: POKEL , A:C=C+A:NEXT :rem 184 
38 FORI=7136T0O7679:READA: POKEI ,A:C=C+A:NEXT :rem 185 
49 IFC<>131696THENPRINT"TYPING ERROR IN DATA":STOP srem 119 
58 SYS57889"0:SPRITE-IMATION",8,@:REM USE ,1,@ FOR TAPE 

srem 261 
6@ POKE193,122:POKE194,22:POKE174,@:POKE175, 30: SYS631989 

srem 188 
108 DATA 13,13,156,29,29,29,29,83,88,82,73 srem 26 
118 DATA 84,69,45,73,77,65,84,73,79,78, 31 srem 4 
126 DATA 13,9,201,136,2480,180,201,58,176,3,76 srem 91 
138 DATA 128,9,76,138,8,32,79,23,32,115,9 :rem 268 
148 DATA 281,8,208,5,32,93,23,16,231,2@1,92 srem 42 
158 DATA 2808,19,173,213,2,208,2,169,4,281,5 srem 55 
168 DATA 176,258,141, 238,29,32,220,29,144,221,2@1 srem 97 
176 DATA 95,208,7,169,147,32,210,255,144, 218,281 srem 56 
188 DATA 58,208,3,56,176,203,201,64, 208,186, 32 srem 222 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


115,@,176,45,201,52,176,41,56,233,4/7 
168,153,227,2,19,133,158,32,115,0,160 
25132,159 732,253,206, 32,138, 205,32724/ 
215,152,164,158,153,216,2,230,158,164,159 
136,298,232,240,149,76,8,207,32,80,23 
78,34,145,173,32,145,9,127,186,45,17 
145,178,19,19,19,138,195,09,41,95,73 
126,201,96,176,2,73,96,160,3,170,41 
3,201 427116424 134171537213 725138 
74,74,136,2908,238,56,46, 34,145, 32,90 
23,76,112,247,120,141,161,2,142,162,2 
140,163,2,96,173,161,2,174,162,2,172 
163,2,88,96,189,69,3,133,158,189,6l 
3,133,159,96,1298,24,162,122,168, 22, 32 
153,255,32,164,227,162,4,189,165,23,149 
123,202,208, 248,169, 254,141,5,144,169,17 
168,23,141,48,3,148,41,3,166,51,32 
4,228,169,122,1690, 22, 32,39,203,88,/76 
129 ,227,234,76,146,22,234,169,30,133,147 
165,191,240,59,224,26,176,55,192, 27,176 
51,138,56,233,4,48,45,1790,152,56, 233 
4,48,38,168,19,133,195,19,133,146,10 
18,24,101,195,24,1801,146,134,146,24,101 
146,192,11,144,8,208,4,224,14,144,2 
2390,147,133,146,133,91,96,234,169,32,133 
147,76,231, 23,96, 26,192, 26,32,27,128 
275128427 5128,277,145,181,181,145,215,215 
151,255, 24, 36,66,126,66,66,66,0,124 
34,34,60,34,34,124,0,28,34,64,64 

64,34, 28,080,120, 36, 34, 34, 34, 36,120 
0,126,64,64,120,64,64,126,0,126,64 
64,120,64,64,64,0, 28, 34,64, 78,66 
34,28,0,66,66,66,126,66,66,66,90 
28,8,8,8,8,8,28,0,14,4,4 
4,4,68,56,0,66,68,72,112,72,68 
66,0,64,64,64,64,64,64,126,8,66 
182,908,989 ,66,66,66,9,66,98,82,74 

78 ,66,66,0,24,36,66,66,66, 36, 24 
@,124,66,66,124,64,64,64,80,24, 36 

66,66, 74, 36,26,0,124,66,66,124,72 
68,66,0,60,66,64,60,2,66,68,@ 
62,8,8,8,8,8,8,0,66,66,66 
66,66,66,69,9,66,66,66, 36, 36, 24 
24,0,66,66,66,90,90,192,66,9,66 

66,36, 24,36,66,66,0, 34, 34, 34,28 
8,8,8,0,126,2,4,24,32,64,126 
G,69,32,32,32,32,32,60,9,135,219 
221,213,221,219,135,255,60,4,4,4,4 
4,60,0,9,8,28,42,8,8,8,8 
135,183,189,164,181,181,133,255,9,9,@ 
0,9,0,0,9,8,8,8,8,9,@ 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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8,8,36,36,36,09,9,0,0,9,36 
36,126,36,126,36,36,0,8, 30,40, 28 
19,60,8,9,89,98,108,8,16, 38,708 
0,48,72,72,48,74,68,58,9,4,8 
16,9,09,0,9,9,4,8,16,16,16 
8,4,9,32,16,8,8,8,16,32,9 
8,42,28,62,28,42,8,9,9,8,8 
62,8,8,9,0,09,0,9,9,0,8 
8,16,9,9,9,126,09,9,0,0,0 
9,0,0,90,24,24,0,0,2,4,8 
16,32,64,9,60,66,/78,99,98,66,60 
0,8,24,49,8,8,8,62,0,68,66 
2,12,48,64,126,09,60,66,2, 28,2 
66,60,0,4,12,20,36,126,4,4,90 
126,64,120,4,2,68,56,9, 28,32,64 
124,66,66,68,0,126,66,4,8,16,16 
16,0,68,66,66,69,66,66,60,9,60 
66,66,62,2,4,56,09,9,9,8,9 
0,8,09,09,9,8,8,8,8,8,8 
16,14,24,48,96,48,24,14,0,0,@ 
126,8,126,09,0,0,112,24,12,6,12 
24,112,80,609,66,2,12,16,0,16,9 
96,249,248 
169,9,133,147,133,146,153,244,2,153,2598 
2,185,208,2,24,121,208,2,38,147,24 
121,208,2,38,147,162,4,19,38,147,262 
208, 258,133,146,152,18,141,255,2,168,185 
244,23,190,245,23,133,176,134,177,169, 26 
133,88,133,98,199,218,2,185,219,2,134 
196,160,2,72,41,7,192,2,249,7,174 


DATA 
DATA 
DATA 
DATA 
DTA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


234,2,240,2,41,254,153,201,2,104,74 
74,74,153,199,2,165,196,136,208,227,173 
203,2,133,89,24,105,8,133,87,169,95 
169,90,153,0,26,136,16,250,24,169,24 
136,177,146,145,89,152,72,105,24,168,177 
146,145,87,194,168, 208,238,168, 24,166,89 
132,251,172,202,2,249,13,24,126,9, 26 
126,32,26,126,64, 26,136,208, 243,232,164 
251,136,208, 238,162,9,134,89,168,0,142 
198,2,148,199,2,138,19,18,24,189,199 
2,133,87,32,243,29,1801,87,133,251,19 
170,32,1801,23,173,200,2,24,109,198,2 
178,173,201,2,199,199,2,168, 32,179, 23 
160,90,166,251,165,146,197,158,2808,6,165 
147,197,159, 248,39,177,158,56,229,196,281 
76,144,21,201,88,176,17,189,180,3,145 
158,165,159, 24,185,128,133,159,189,9,148 
145,158,177,146,133,195,72,165,147,24,1085 
126,133,92,177,91,168,194,2801,76,144,19 
1.7678 5255-¢2559 5255 74255,255,255,255;,2557233 
76,178,189,188,3,188,9,148,281,32,24@ 
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1218 DATA 6,174,252,3,157,250,2,166,251,157,180 :rem 5 
1228 DATA 3,152,157,8,148,160,0,177,146,56, 233 :rem 298 
1238 DATA 76,197,251,144,20,189,180,3,133,195,174 :rem 121 
1248 DATA 252,3,189,238,2,204,234,2,240,2,9 :rem 56 
1258 DATA 8,145,91,169,23,141,114,29,165,195,201 :rem 64 
1268 DATA 76,144,13,201,88,176,3,141,244,2,174 s:rem 215 
1278 DATA 252,3,157,244,2,56,238,114,29, 233,32 srem 215 
1288 DATA 48,4,133,195,16,244,184,165,195,19,10 :rem 14 
1298 DATA 108,141,113,29,185,0,25,17,89,145,89 :rem 174 
1308 DATA 200,192,8,208,244,169,8,165,87, 24,105 z:rem 254 
13190 DATA 64,145,146,165,251,19,178,165,146,157,60 :rem 157 
1328 DATA 3,165,147,157,61,3,165,89,24,105,8 :rem 123 
1330 DATA 133,89,174,198,2,172,199,2,200,192,4 :rem 226 
1340 DATA 248,3,76,143, 28, 232,224,3,240,3,76 :rem 196 
135@ DATA 141,28,168,95,185,8,26,145,176,136,16 :rem 15 
136@ DATA 248,32,243,29,18,1780,169,76,24,1981,196 :rem 65 
1378 DATA 168,195,12,133,195,152,72,32,101,23,160 :rem 95 
1380 DATA @,194,145,158,168, 209, 232, 232,196,195,208 :rem 211 
1398 DATA 238,96,168,9,149,252,3,185,228,2,133 srem 214 
1499 DATA 191,32,224,27,172,252,3,200,192,4,2988 :rem 250 
1418 DATA 237,24,96,173,255,2,10,133,196,10,24 :rem 209 
1420 DATA 181,196,133,196,96 :rem 195 


Program 2. Sprite Demo 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,”’ Appendix C. 


5 POKE56,22:POKE52,22:POKE55,32:POKE51 ,32 srem 131 
19 FORI=5664T05711:READA:POKEI,A:NEXT :rem 6/7 
20 DATAG,®,3,15,31,55,113,112,248, 248, 252, 223,255,255,254,254 
,294,127,127,62,29,15,3,90 :rem 165 
308 DATAG,9,192,2440,248,236,158,142,15,31,31,111,191,15,7,7,7, 
14,30,124,248, 240,192,908 srem 55 
40 POKE720,118:POKE/590,6:POKE725,1:POKE36879,14:LET<::rem 128 
45 FORI=0TO59 :A=INT( RND(1)*505) :POKE7680+A, 46 : POKE38400+A, INT 
(RND(1)*6)+1:NEXT s:rem 67 
48 POKE79190,42:POKE38630,7 :rem 206 
58 FORI=0TO6 .28STEP .96 :X=O60*COS(1I)+197:VY=050*SIN(1I)+107:LET@ 
O,X,Y:£:NEXT:GOTO5@ srem 105 
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VIC Draw McGraw 


“VIC Draw McGraw” can be used to easily create graphic pictures on your 
8K expanded VIC. With it, you can quickly design characters and figures to 
suit almost any need. You can even use it to draw hi-res pictures on the 
screen. 

Once you’ve typed in and saved VIC Draw McGraw, make sure you 
have an 8K expander cartridge plugged into the port at the back of your 
computer. Load the program, run it, and you'll see a 14-item menu screen: 


Move Cursor 

Print Character 

Rotate Cursor Character 
Change Character Size 
Image to Printer 

Use Programmable Characters 
Condense Characters 
Save to Printer 

Save to Tape 

10 Restore from Tape 

11 Draw with Joystick 

12 Erase Mode 

13 Print Mode 

14 Color of the Screen 


Beneath this menu is additional information on the size of the character 
grid you’re presently working with, the type of character, the number of the 
character under the cursor, the mode VIC Draw McGraw is in, and the num- 
ber of characters remaining to you. (All these will be explained shortly.) 


OO COND OP WN 


| How Ii All Works 

Move Cursor. Function 1 from the main menu is probably the most 
widely called function of VIC Draw McGraw. As soon as you hit the 1 key 
and press RETURN (all functions require that you follow the number with 
the RETURN keypress), the screen clears and you'll see a cursor at the top- 
left corner of the screen. You can move it anywhere simply by using the nor- 
mal cursor keys. This function is used to position the cursor in the desired 
place, something important for many of the other functions. Hit the RE- 
TURN key again to go back to the main menu. 

Print Character. When you press the 2 key and hit RETURN, you'll see 
a prompt at the bottom of the menu screen. Enter the screen code (often 
called the POKE code) for the character you want to print at the present 
cursor position on the alternate screen. You'll also be asked if you want the 
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reverse mode (answer Y for Yes, N for No), the set number (1 for 
uppercase/graphics, 2 for lowercase/uppercase), and whether you want the 
pixels of the character shifted to the right and down (answer N for No, Y for 
Yes; if the latter, you'll have to provide values for both the right and down 
SHIFTs). When you shift a character’s pixels, it still prints, but it won’t nec- 
essarily appear directly beneath the cursor position. You can use this feature 
to print “offset’’ characters almost anywhere on the screen. 

Rotate Cursor Character. Hitting the 3 key calls this function. Any 
character under the cursor (remember, you can move the cursor by pressing 
the 1 key) can be rotated 90, 180, or 270 degrees. You can make your 
characters, whether standard or those you designed, lie on their sides or 
even stand on their heads. 

Change Character Size. By pressing the 4 key, you can change the 
character size. (This is also used to set the drawing area when you enter the 
Dra‘w with Joystick mode.) All that happens is that after entering the width 
and height values, the Size message in the middle box of the main menu 
changes. To actually draw enlarged characters, however, you'll have to go 
back to the alternate screen and print a character. Try it out. 

Image to Printer. Pressing the 5 key, assuming you have a printer con- 
nected to your VIC, sends the screen graphics to the printer. The process is 
quite long and takes approximately 55 minutes to run. The results, however, 
are worth the wait. 

Use Programmable Characters. Hitting the 6 key toggles between the 
VIC’s standard character set and the programmable characters you've already 
created. You can create your own custom characters by accessing the Draw 
with Joystick mode, drawing a character, and then noting the character num- 
ber under the cursor (that information is listed in the middle message box on 
the main menu). When you're in the programmable character mode, if you 
try to print a character on the alternate screen, you'll see only two messages: 
screen Code and Shift. Instead of entering a screen code value, type in the 
character number (the value you see in the message box when the cursor is 
directly over your custom character). 

Condense Characters. This function, called by pressing the 7 key, re- 
places programmable characters that are all clear or all filled with the 
predefined characters used for the cursor and the background. Use this func- 
tion with caution and only if you’re running out of characters (256 possible 
characters) or space on the screen (256 possible locations). Though it some- 
times may appear as if nothing but character shifting is happening, the func- 
tion does free up some screen space when you’re cramped. 

Save to Printer and Save to Tape. Pressing either the 8 or 9 key saves 
the character data you’ve created, sending it either to your printer (assuming 
one is connected) or to your tape drive. When you send the data to the 
printer, you have to specify whether only the character under the cursor is 
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recorded or whether the presently selected size is used and all character data 
is printed. The numbers shown on a printout (as well as those sent to tape if 
you select 9) indicate the bit values of each byte. If you send the data to 
tape, you have to provide a filename. 

Restore from Tape. This feature, accessed by entering 10, loads your 
character data from tape back into the computer. Make sure you provide the 
correct filename. 

Draw with Joystick. This is one of the most interesting features of VIC 
Draw McGraw. After setting the character size (by using function 4), you can 
enter 11 and hit RETURN. The alternate screen appears, and you can use a 
joystick to draw on the hi-res screen. Pressing the P, E, or C key while draw- 
ing changes the function to set Print, Erase, or Change modes. Press the joy- 
stick button to draw, moving the joystick around the screen. If you choose 
Erase, when you press the button, any point you move over is erased; if you 
choose Change, then printed points are erased and erased points are printed. 
Note that the drawing area is established by the Change Character Size 
function. 

Erase Mode. When you enter 12, having earlier placed the cursor over 
the desired character, you can erase portions of the character by printing 
over it with another character. Use this to clear selected characters from the 
alternate screen. 

Print Mode. Enter 13 to go back to printing mode. 

Color of the Screen. This allows you to select character colors for any 
character you wish. Simply follow the prompts which appear in the bottom 
of the main menu screen. 


VIC Draw McGraw is a powerful program. With it, you can create al- 
most any custom characters you want. You can even enlarge the VIC’s stan- 
dard character set and print that. Experiment with the program—you'll 
probably find uses for it I never thought of! 


VIC Draw McGraw 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 


Some lines of this program require keywords to be abbreviated so that they will not exceed the four-screen-line 
limit. See Appendix B. 


1 REM ** * VIC DRAWMCGRAW KRKKKKKKKKKKKKKKKKKKKRKK KKK KKKA KK KKK KRKKRKKK 


RERRERERERXXKXKAKX :rem 46 
D2 REM ER KERR RR RRR RRR ER KK ERR RR RRR KER KR RR RK RR RR KK RK RR RK RK 
RRR KKK KERR XXX XXXXX :rem 172 
3 REM Rw Ra RK I KKK KK OR IK IIT IIIT OR RR II KKK Bk a tk 
Wt tatet et ED. ©.0.0.0.0.0.0.¢ :rem 171 
A REM ER RRR KKK KKK RRR RK KKK RRR KKK RK KR KR RK RI KK 
RRR RR RRR ERXXXXXXXKK :rem 172 
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REM © 8 & ww KKK KKK KKK REE KR KKK KKK KREKKKKKKKKKKKKS 


RRR KK RK ERX XXX XXXK :rem 173 
BEM 3 IOI III IOI IOI IOI KK aK kk kk 


Hk kkk ARR RH XXXXXXXKX :rem 174 
REM &X # XK KEKE KKK KEKE KK KKK KKK KKKKKEKKEKKKKEKKKEKKEKKKKKKKKKKKKEKE 


wR KKK KR ERX XXXXXXX :rem 175 
REM 38 RRR RRR RRR RII IIIT III III IKK aa a a ak 


RK KK KKK ER XX XXXXXX :rem 176 
REM #9 FI III III IOI III Ok i kk 


RRR KKK KE EEXXXXXXKX :rem 177 
BREM 8 1  ITITTI T KK TKK KK KK KK KK KIER RR KK RK 


Kk kk RR RHR XX XXXXXX :rem 217 
REM ¥ % ¥ KKK KKK KKK KKK KKK KKK KKK KKKKEKKKKKEKEKEKKEKKEKKKEKKEKKKKKKKKR 


RREK KKK EREXXXXXXXX :rem 218 
REM 8 I IO III III IIIT CII kok 


RRERERARREEEXXXXXXKX :rem 219 
REM ** eR RRR RRR RR RRR RR RR RRR RR RR RR RRR RRR RR RK 


BREEAM RERRR XKXKKXKK :rem 220 
REM © & RRR RRR RRR KERR KERR KER KEKE ERK KR KERR RK KR RR KR RRR KR 


tet tal» .o,0.0,0 0,0,@.¢ :rem 221 
REM 3 8% RK KK KK KK RIK KKK IKE RRR KEKE KERRIER KKK KKK 


TERA RARER ERS XXRXXXXX srem 222 
REM*** wR RRR I a RR a a ka oR a RR aK 


RRKRR EERE REXXXXXXXX :rem 223 
REM 3% 8 RRIF RIK KKK III KI TR IIR IK Rk 


PERS EREE AE KX A XK :rem 224 
REM & © 8 8 KR KK KI RR KKK KIKI KKK IKKE RK KEKE KKK KK RK KK 


RARE RRR REAR XXX XXKK :rem 225 
REM RR RK RRR KKK KKK KR KKK KEKE RE KR RR KKK RK RR RR RR KR RK RK RK 


CARA E REE REX KKXK :rem 226 
REM 8% RRR RK RR RK RRR KR RK RRR KR RK RR KIRK RK tO kk kk 


it ttc R ate. ©.0,0,0.0,0,0.4 :rem 218 
REM #8 8 iw KR KK KK IKK RIO OR RIOR OK OK KO IO aK kk 


ie Rete telaiaD.©.0,0,0.0,0,0 4 :rem 219 
REM & RR KKK RK RK KERR KEK KERR EKER RRR KR KR KR KR RIK RK a IK 


RARER ERE EE XXKXXKKK :rem 220 
REM #4 8 kk RR RO a a RR a aR aK 


pS et ER talakD 0.0.0.0 0.0.9.4 s:rem 221 
REM 8 8% a RR RR RI OO a a KR KR aK 


EERE KREKERXXXXXXXK :rem 222 
REM #8 RRR RRR KEK RRR KIRK RRR KR RK RK RR KK 


KHEKEKKEKEERXXXXXXXX srem 223 
REM ¥¥ KR RRKKRKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKK 


Hk wR HK HH IHX XXXXXXX srem 224 
REM*XRRKRKKKKRKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKaRKKKRK KKK 


RENEE EERE XX KXXKXX srem 225 
REM © © 8 8 i ti iH KK RR KR IK IO KR RR RR RRR KR KR KR IK 


KEKKKKKEKEKYXYXXXXXXX srem 226 
REM RR KKEKKKKKEKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKEKKKKKKREK 


He KKK KKK ERE YX XXX XXX s:rem 227 
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REM FRR KRKKKKKKEKKEKKKKKKKKKKKKKKKKKKKKKK KKK KK KK KKKKKKKKKKKKK 


wk KK KKK RRR XX XXXXXX srem 219 
REM XX ¥ RRR RK KKK KKK KEKKKKKKEKKKEEKKKEKKEKKEKKKKEKKKKKKKKKKKKKKKE 
RERERR REX ER XXXXXXXX s:rem 220 
REM FX KKRKKKEKKKEKKKEKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKK KKK 
Keke KK RK KEK XX XXXXXX srem 221 
IF PEEK (833 )=31THENPOKE833,32:GOTO46 srem 20 
POKE36879,92:PRINT"{CLR}":TAB(158) ;"{BLK} VICDRAWMCGRAW":PR 
INTTAB(27);"{5 DOWN}PLEASE WAIT" srem 215 
POKE5114,2 :FORX=16301T016379 : READA: POKEX, A:NEXT: POKE55,173 
: POKE56,63 srem 94 
POKE44, 28 : FORX=5120T07167 : POKEX, 9: NEXT: FORX=5128T05135:POK 
EX, 255 :NEXT: DIMS(7) srem 9 
GOSUB96 :PRINT" {CLR} {BLU}"; :FORX=1T0505 :PRINT"@": :NEXT: POKE 
5113 ,8:POKE38905 ,6 :GOSUB96 srem 255 
MDS="PRINT" : DMS="P":CHS="STAND":CL=254 :A=4608: D=PEEK(A) :PO 
KEA, 1 :K=0 :J=1:WI=1:TL=1 srem 233 
C=PEEK(5114) :HCS="PROGRAM. ": POKE649,1:GOTO7@ srem 31 
PRINT" {CLR} {BLK}1{2 SPACES}MOVE CURSOR": PRINT" {WHT }2 
{2 SPACES}PRINT CHARACTER":PRINT"{BLK}3{2 SPACES}ROTATE CU 
RSOR CHAR" srem 155 
PRINT" {WHT}4{2 SPACES}CHANGE CHAR. SIZE":PRINT"{BLK}5 
{2 SPACES}IMAGE TO PRINTER" srem 151 
PRINT" {WHT}6{2 SPACES}USE ";HCS;" CHAR." :rem 21 
PRINT" {BLK}7{2 SPACES}CONDENSE CHARACTERS": :PRINT" {WHT}8 
{2 SPACES}SAVE TO PRINTER":PRINT"{BLK}9{2 SPACES}SAVE TO T 
APE" srem 121 
PRINT" {WHT}1@ RESTORE FROM TAPE" srem 35 
PRINT" {BLK}11 DRAW WITH JOYSTICK":PRINT"{WHT}12 ERASE MODE 
"sPRINT" {BLK}13 PRINT MODE" srem 193 
PRINT" {WHT}14 COLOR THE SCREEN":PRINT" {PUR} {RVS} 
{22 SPACES}{BLK}"; srem 75 
WIS=MIDS(STRS(WI1),2,2) :IFWI<1@THENWIS="@0"+WI1S srem 32 
TLS=MID$(STRS$(TL),2,2) :IFTL<1Q9THENTLS="Q"+TLS srem 33 
PRINT" {OFF} {BLK}SIZE=";WIS;"X";TLS;"{2 SPACES }MODE=";MDS; 
srem 178 
CLS=MIDS(STRS(CL),2,3) srem 97 
PRINT "CHAR=";CHS;"{2 SPACES}# LEFT=";CLS;:PRINT"{HOME}";TA 
B( 208) ;TAB(176);"CHAR UNDER CURSOR="; s:rem 55 
PRINTMIDS(STRS(D),2,3) srem 181 
PRINT" {RVS}{PUR}{22 SPACES} {OFF} {BLK}"; :RETURN :rem 98 
GOSUB48:PRINT"FUNCTION? ";:GOSUB75:FU=VAL(AS) :IF(FU<1)OR(F 
U> 255) THEN7@ :rem 46 
ONFUGOSUB19@, 298,300,400 ,5008,600,798,8008,9898,1000,1199,12@ 
@,1308,1480 :rem 106 
ONSDGOSUB96 :GOTO7@2 :rem 104 
A$S="" :rem 82 
GETBS :IFBS=""THEN76 srem 255 
IFBS=CHRS(13)THENPRINT" ":RETURN srem 112 
IFBS=CHRS (20) THENAS="DEL":PRINT" ":RETURN srem 100 
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IFBS<"@"ORBS>"9"THEN76 srem 115 
AS=AS+BS$ :PRINTBS; :IFLEN(AS)>2THENPRINT" ":RETURN srem 82 
GOTO76 s:rem 15 
FORX=1TOTL-(SD%>@) : FORY=1TOWI-(SR%>@) :LU=PEEK (A+Y+22*X-23 ) 
:rem 218 
IFLU< 2ANDCL=0 THENONSDGOSUB96 : GOSUB48: PRINT" CHARACTERS EXHA 
USTED":PRINT"USE CONDENSE":AS="R": RETURN s:rem 186 
IFLU=1 THENFORX1=98TO7 : POKE51290+8*C+X1,255 :NEXT srem 231 
IFLU < 2THENPOKEA+Y+2 2*X-23 ,C:C=C+t+l srem 154 
CL=256-C :NEXT:NEXT: RETURN srem 84 
FORX=98 TO7 :S(X)=0 :NEXT: RETURN srem 42 
IFSD=@ THENSD=1 : POKE36866, PEEK( 36866 )0OR128:POKE648,18:POKE3 
6879,27:POKE36869, 2985 :RETURN srem 156 
SD=@ : POKE36866, PEEK( 36866) AND127 : POKE648, 16: POKE36879,92:P 
OKE36869 ,192:RETURN srem 16 
GOSUB96 :rem 128 
GETAS : 1 FAS=""THEN1@1 srem 7] 
I FAS=CHRS$ (13) THENGOSUB96 : RETURN srem 181 
ON-(AS="{ RIGHT }" )-2* (AS=" {DOWN }")-3* (AS=" {LEFT }")-4* (AS=" 
{UP}")GOTO115,120@,125,13@ s:rem 69 
IF((VAL(AS) >@)AND(VAL(AS) <9) ) THENPOKEA+3 3792, VAL(AS )-1:GO 
TO1@1 srem 247 
IF((ASC(AS)>32)AND(ASC (AS) <41 ) ) THENPOKEA+33792,ASC(AS$)-25 
srem 1902 
GOTO191 srem 96 
POKFA, D: A=A~-(A<5113) :GOTO135 srem 65 
POKEA, D:A=A-22* (A< 5892) :GOTO135 srem 209 
POKEA, D: A=A+(A>4698) :GOTO135 srem 74 
POKEA, D: A=A+22* (A> 4629) srem 2063 
D=PEEK(A) :POKEA,1:GOTO1941 srem 221 
GOSUB48 :PRINT"SCREEN CODE? “;:GOSUB75:IFAS="DEL"ORAS=""TH 
EN200 :rem 208 
SC%=VAL(AS) : IF(SC%<@) OR( SC%> 255) THEN20@ srem 177 
IF (CHS="PROG.")OR(SC%¥>127 ) THENSN%$=1 :GOTO215 srem 1 
GOSUB48:PRINT"WANT RVS ON?" srem 161 
GETAS :ON-(AS="" )GOTO208 : I FAS="Y" THENSC$=SC$+128 srem 157 
GOSUB48 :PRINT"SET NUMBER? "; :GOSUB75:SN%=VAL(AS) :IF(SN%<1 
)OR(SN%>2)THEN210 :rem 236 
GOSUB48 :PRINT"“ SHIFT?" srem 76 
GETAS :ON-(AS="")GOTO220 : IFAS <>"Y" THENSR3$=9 :SD%=8 :GOTO239 
srem @ 
GOSUB48 :PRINT" PIXELS TO RIGHT?" s:rem 197 
GETAS :ON-( (AS <"@" )OR(AS>"7" ))GOTO230:SR%$=VAL(AS ) s:rem 77 
GOSUB48 :PRINT" PIXELS DOWN?" srem 217 
GETAS :ON—-( (AS<"@" )OR(AS>"7" ) )GOTO232 :SD%=VAL(AS ) s:rem 67 
GOSUB96 : POKEA, D srem 167 
GOSUB83 :IFAS="R"THENRETURN srem 145 
FORX=0TO7 : FORY=8TO7 srem 224 
IF((2T(7-Y) ) AND( PEEK(32768*J+5120*K+(SN%-1 ) *2048+SC%*8+X) 
) )>@THENGOSUB 283 srem 19 


sound 
and Graphics 


NEXT: NEXT: D=PEEK(A) :FORX=1TO3009 :NEXT: POKEA, 1 :RETURN 


srem 171 
FORX1=1 TOTL: FORY1=1 TOWI :X2=Y*WI+SR$+Y1—1 :X3=X* TL+SD%+X1-1 
srem 99 
X4=A+INT(X2/8)+22* INT(X3/8) srem 232 
X5=PEEK(X4) *8+5120+X3-8* INT (X3/8) srem 53 
IFDMS="P"THENPOKEXS5 , PEEK(X5 ) OR2f ( 7—(X2-( INT (X2/8)*8))):GO 
TO299 srem 183 
POKEX5 , PEEK(X5 ) AND( 255-2f ( 7-X2+( INT (X2/8) *8) )) srem 78 
NEXT : NEXT : RETURN srem 118 
GOSUB48:PRINT"PICK: (1) 98{2 SPACES }DEG-CW":;PRINTTAB(6);" 
(2) 188 DEG-CW":PRINTTAB(6);"(3) 278 DEG-—CW" srem 28 
GETAS :IFAS<"1"ORAS>"3"THEN3@5 srem 62 
GOSUB95 :X=VAL(AS) :GOSUB96 : POKEA, D: ONXGOSUB3 20, 350, 368:FOR 
X=1TO39080 :NEXT: POKEA, 1:RETURN srem 225 
FORX1=7 TO@STEP-1 : FORX3=0TO7 srem 217 
IF (PEEK(5120+D* 8+X3 ) AND2TX1 ) >@THENS ( 7-X1 )=S(7-X1)+2TX3 
srem 105 
NEXT : NEXT: FORX1=@8TO7 : POKE5120+D* 8+X1,S(X1) :NEXT: RETURN 
srem 226 
FORX4=1TO2 : GOSUB3 28 :GOSUB95 : NEXT : RETURN :rem 88 
FORX4=1T0O3 :GOSUB3 24 :GOSUB95 :NEXT: RETURN srem 90 
GOSUB48:PRINT"WIDTH? ";:GOSUB75:WI=VAL(AS) :GOSUB48: PRINT" 
HEIGHT? "; :GOSUB75:TL=VAL(AS) :rem 149 
IF(TL>23)OR(WI>22)OR(TL<1)OR(WI<1) THEN4OD srem 173 
RETURN srem 119 
GOSUB48:PRINT"IS PRINTER READY?":PRINT"IF SO HIT ANY KEY" 
srem 242 
GETAS :ON-(AS="")GOTO5@1 :GOSUB48:PRINT"...WORKING":rem 193 
T1=4608 :12=5120:POKEA,D:OPEN4,4 srem 244 
Z1=0 :Z2=25:Z23=6 :GOSUB5140 :21=26:22=26:Z3=1 :GOSUB519 
srem 222 
POKEA, 1: CLOSE4 : RETURN :rem 141 
FORX=Z1TOZ2 :BS=CHRS (8) +CHRS (27)+CHRS(16)+CHRS(@)+CHRS(153 
srem 192 
FORX1=6TO175 :CN=128 : FORX2=@TOZ3 srem 163 
Y1=I1+INT((X*7+X2)/8)*22+INT(X1/8) :Y2=12+PEEK(Y1)*8+X* 7+X 
2-8* INT ( (X*7+X2)/8) srem 222 
IF (PEEK (Y2)AND2f (7-(X1-8* INT(X1/8) )) ) THENCN=CN+2f X2 
srem 253 


NEXT: BS=BS$+CHRS (CN) :NEXT:PRINT#4,BS :NEXT: RETURN srem 228 
IFHCS="PROGRAM. "THENHCS="STANDARD": J=@:K=1:CHS="PROG.":RE 
TURN srem 25 
HCS="PROGRAM. ":J=1 :K=@:CHS="STAND": RETURN srem 239 
GOSUB96 :Z=8 : POKEA, D: CE=9 : IFC=2 THENPOKEA, 1:RETURN :rem 97 
FORX=2TOC-1 : FORY=@TO7 :XS=51206+8*X+Y:POKEXS, PEEK(XS+8*CE) : 


NEXT : FORY=8TO/7 :rem 82 
Z=Z+PEEK(5120+8*X+Y) :NEXT srem 218 
IFZ=8ORZ=2840 THENGOSUB76@ :rem 56 
IF (X+CE)=(C-1 ) THENLU=X :X=C-1 :rem 140 
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Z=6 sNEXT srem 222 
CH=C-1 :C=LU+1 srem 185 
FORX=CTOCH : FORY=0TO7 : POKE5120+8*X+Y,@:NEXT:NEXT: D=PEEK(A) 
: POKEA, 1 :CL=256-C: RETURN srem 218 
POKE16347 , -(Z=204@) :POKE163804,X:SYS16361 :rem 247 
CE=CE+1 :X=X-1 : RETURN srem 230 
GOSUB48:PRINT"IS PRINTER READY?":PRINT"IF SO HIT ANY KEY" 
srem 245 
GETAS : I FAS=""THEN8@1 srem 85 
GOSUB48:PRINT"PICK:(1) CURSOR CHAR":PRINTTAB(5);"(2) SIZE 
AS ABOVE" :PRINTTAB(5);"{UP}START AT CURSOR" srem 8 
OPEN4 ,4 srem 98 
GETAS :ON-(AS<"1")-(AS>"2") GOTO8@5 :ONVAL(AS)GOSUB818,828:C 
LOSE4 : RETURN srem 7 
PRINT#4,CHRS$(14)"CURSOR CHARACTER: ":PRINT#4,CHRS(15) 
srem 75 
FORX=51290+D*8T05127+D*8 :PRINT#4, PEEK(X); :NEXT srem 191 
PRINT#4:PRINT#4, "COLOR MEMORY=";PEEK(A+33792)AND15 :rem 1 


814 PRINT#4, "AUXILIARY COLOR="; INT( PEEK( 36878)/16) : RETURN 
srem 18 
82@ POKEA,D:PRINT#4,CHRS$S(14)"CURSOR IN UPPER LEFT HAND CORNER 
"sPRINT#4, "OF A SQUARE":WI; s:rem 26 
821 PRINT#4,"X";sTL;: :PRINT#4, "(WIDTH X HEIGHT)":FORX=l1TOTL:PRI 
NT#4,CHRS$S(15)"ROW #":X srem 235 
824 FORY=1TOWI:PRINT#4, "CHARACTER #€"3Y;"—"; srem 72 
825 FORZ=OTO7 :PRINT#4, PEEK (5120+2Z+8* PEEK (A+Y-1+22* (X-1)));:NE 
XT:PRINT#4, "***" sNEXT:NEXT srem 204 
838 PRINT#4:PRINT#4, "COLOR MEMORY": FORX=1TOTL: PRINT#4, "ROW #" 
7X : FORY=1 TOWI :rem 246 
832 PRINT#4, "CHARACTER #"3sY;"—"; :rem 28 
835 PRINT#4, PEEK(A+33792+Y-1+(X-1)*22)AND15:NEXT:NEXT: rem 193 
848 POKEA,1:PRINT#4, “AUXILIARY COLOR="; INT ( PEEK (36878) /16):RE 
TURN :rem 24 
9900 GOSUB48:PRINT"FILENAME? "; :BS=""s:FORX=@0T0O254 srem 144 
905 GETAS : IFAS=""THEN9I@5 :rem 95 
918 IFAS=CHRS (13) THENX=254 :GOTO9290 srem 238 
915 BS=BS+AS$:PRINTAS; srem 159 
920 NEXT: POKEA,D: POKE5114,C:GOSUB48:PRINT"IS PROPER TAPE IN?" 
:PRINT"IF SO HIT ANY KEY" srem 46 
922 GETAS : I FAS=""THEN922 srem 93 
923 GOSUB48:OPEN1,1,1,BS :FORX=38408T0O38905 :PRINT#1,PEEK(X)AND 
15:NEXT srem 155 
924 PRINT#1, INT( ( PEEK( 36878) )/16):CLOSE1 srem 54 
925 POKE5115, PEEK(45) :POKE5116,PEEK(46) :POKE43,@:POKE44,18:PO 
KE45 ,0:POKE46, 28: SAVECHRS(31),1,1 srem 234 
935 POKE833,32:POKE43,1:POKE44,28:POKE45, PEEK(5115) :POKE46,PE 
EK(5116) :rem 21 
940 POKEA,1:RETURN srem 132 
1980 GOSUB48:PRINT"FILENAME? ";:BS="":FORX=0T0254 z:rem 184 
1885 GETAS : I FAS=""THEN1#G5 srem 175 
1918 IFAS=CHRS$(13) THENX=254:GOTO182@ srem 62 
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1815 BS=BS+AS:PRINTAS; srem 199 
1920 NEXT:GOSUB48:PRINT"IS PROPER TAPE IN?":PRINT"IF SO HIT A 
NY KEY" srem 153 
1922 GETAS :IFAS=""THEN1922 srem 173 
1023 GOSUB48 :OPEN1,1,9,BS$ : FORX=38499T038965 :INPUT#1,CO:POKEX, 
CO :NEXT: INPUT#1 ,CO srem 171 
1024 POKE36878, PEEK ( 36878) AND150R(16*CO) :CLOSE1 :LOADCHRS (31): 
RETURN srem 17 
1198 GOSUB48:PRINT"HIT P, E OR C TO SET{2 SPACES}PRINT, ERASE 
OR CHANGEMODES " : FORX=1TO2G0@@ : NEXT srem 127 
1105 BS="C":SD%=@ :SR$=0 : POKEA, D: GOSUB83 : 1 FAS="R"THEND=PEEK (A) 
: POKEA, 1 : RETURN srem 141 
11186 CX=1:CY=1 :ONSD+1GOSUB96 srem 261 
1128 GETAS : IFAS=CHRS(13)THEND=PEEK(A) :POKEA,1:RETURN :rem 178 
1122 IF(AS="P" )OR(AS="E")OR(AS="C") THENBS=AS srem 75 
1125 POKE37154,127:ON( PEEK( 37137)AND32)+1GOSUB115@ srem 64 
113@2 Al=( PEEK (37137) AND28) OR( PEEK( 37152) AND128) :A1=ABS((A1-19 
G)/4)-7 srem 173 
1135 ONA1GOTO1136,1137,1138,,1139,1140,1144,,,,1141,1142,1143 
srem 69 
1136 CX=CX+(CX>1):CY=CY-(CY<8*TL) :GOTO1144 srem 8 
1137 CX=CX+(CX>1) :CY=CY+(CY>1):GOTO1144 srem 56 
1138 CX=CX+(CX>1) :GOTO1144 srem 3 
1139 cY=CY-(CY<8*TL) :GOTO1144 srem 216 
1140 CY=CY+(CY>1):GOTO1144 srem 255 
1141 CX=CX-(CX<8*WI) :GOTO1144 :rem 206 
1142 CX=CX-(CX<8*WI) :CY=CY+(CY>1):GOTO1144 srem 5 
1143 CX=CX-(CX<8*WI) :CY=CY-(CY<8*TL) srem 154 
1144 POKE37154,255:GOTO1129 :rem 252 
115@ X2=CX-1 :X3=CY-1 srem 131 
1151 X4=A+INT(X2/8)+22* INT(X3/8) :X5=PEEK(X4)*8+5129+X3-8* INT ( 
X3/8) srem 223 
1152 ON-—(BS="P")-2* (BS="E")GOTO1154,1156 srem 304 
1153 IF(PEEK(X5)AND( 2f (7-(X2-(INT(X2/8)*8)))))>@THEN1156 
srem 104 


1154 POKEXS, PEEK(X5)OR2T (7—(X2-(INT(X2/8)*8))):RETURN: rem 158 
1156 POKEXS5, PEEK(X5)AND(255-(2fT (7-(X2-(INT(X2/8)*8))))):RETUR 


N srem ol 

1208 MDS="ERASE":DMS="E": RETURN :rem 56 
1300 MDS="PRINT":DMS="P": RETURN srem 97 
1498 GOSUB48 srem 177 
1418 PRINT"HIT COLOR KEYS TO SET COLOR. HIT {RVS}SHIFT{OFF} T 
HEN COLOR KEY TO SET MULTI-COLOR MODE."; srem 181 

1415 FORX=1TO69006 :NEXT srem 90 
1420 GOSUB48:PRINT"ENTER A NUMBER FROM @ TO 15 TO SET AUX COL 
OR"; srem 234 

1438 GOSUB75 :ON-(AS="DEL" )GOTO142@ : POKE36878, PEEK ( 36878) AND15 
OR(16*VAL(AS) ) :rem 68 

1499 GOSUB1@0 :RETURN :rem 2 
30900 DATA162,90,169,179,221,9,18, 248, 36,144,42, 224, 255, 208, 26 
,169,19,205,179,63, 248,42 :rem 179 
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38681 
38GG2 


388683 
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DATA162,0,169,19,141,179,63,141,222,63,141,228,63,141,2 


33,63,/6,175,63,232,76,175 :rem 248 
DATA63,169,170,157,0,18,76,184,63,188,9,18,136,152,157, 
0,18,76,184,63,169,18,141 :rem 213 


DATA179,63,141,222,63,141,228,63,141,233,63,96 :rem 52 


Griffin |. 
Johnson 


| Music. Mate 


Have you wanted to include music in your programs but found it too time- 
consuming and tedious to determine the frequency number and duration re- 
quired for each note? “Music Mate” is a program that enables the user to 
program a tune with a minimum of time and effort through the use of visual 
prompts rather than with coded numbers. REMark statements have been 
omitted from the program to allow the maximum number of notes to be 
entered. 

Once the first part of the program is loaded and run, the custom charac- 
ters required for the main program are ready and Part 2 will be automatically 
loaded. Be sure to save both Program 1 and Program 2 before running either. 
Disk users should save Program 2 with the filename MATE. Tape users 
should delete lines 40000 to 40030 in Program 1 and add this line: 


40000 POKE 198,5:POKE631,78:POKE632,69:POKE633,87:POKE634,13:POKE635,131 
Be sure to save Program 2 on the same tape immediately following Program 1. 


Writing Music 
The program prompts the user to enter the total number of notes and rests 
for the tune up to a maximum of 60. Instructions for using the program are 
printed on the screen until any key is hit. Then, three columns of input 
choices are printed on the screen, including a message at the bottom of the 
screen indicating the note currently being entered. 

The first column shows note and rest choices, for example, quarter note, 
half note, quarter rest, and so on. The second column is a small section of 
staff lines representing the treble clef from B-flat below middle C to two oc- 
taves above. The third column has only three choices—whether the note is 
natural, sharp, or flat. 

The Music Mate program automatically positions the cursor to the left of 
the first column. Using the cursor up/down key, you can position the cursor 
to the left of the note or rest to be selected. You enter the note or rest dura- 
tion by hitting the Z key. The one exception to this is a dotted note. For a 
dotted note you should position the cursor up one space and hit the Z key to 
enter the dot before entering the note. Also, at the bottom of the first column 
is the letter R. Choose R if you make a mistake in entering a note. To return 
to the note for correction, position the cursor to the left of the R and hit the 
Z key. This may be done repeatedly to return to any note. 

The cursor them moves to the second column if a note was entered in 
the first column. Position the cursor to the line or space for each note by 
using the cursor up/down key. The program offers a two-octave range from 
B-flat below middle C to B above the staff. Hitting the Z key enters the note 
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and moves the cursor to the third column. In this column the cursor is po- 
sitioned opposite the natural sign and must be moved up or down to select 
flat or sharp. Again, hitting the Z key enters the choice. 

The above process is repeated for each note or rest. When all notes and 
rests have been entered, the program prompts with, ‘“Do you want the music 
played? (Y/N).” If the choice is Y, the music is played as many times as de- 
sired. If the choice is N, the program prompts with, ‘Do you want the 
BASIC statements? (Y/N).” Entering Y prints the BASIC statements and 
DATA statements for the music which has been entered. These may then be 
copied to add music to your own programs. 


Program 1. Music Mate 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,”” Appendix C. 


1@ REM PART ONE OF TWO PART PROGRAM :rem 62 
20 PRINT" {CLR} MUSIC MATE" srem 119 
20008 POKE56,28:POKE52,28:POKE51,8:POKE55,8:CLR srem 253 
208018 M1=7168:CS=32768 srem 155 
20020 FORI=M1TOM1+511:POKEI ,PEEK(I+CS-Ml1) :NEXT srem 68 
20058 READX: IFX<OTHEN2@008@ srem 33 
208698 FORI=XTOX+7 :READJ :POKEI,J:NEXT srem 91 
28878 GOTO2885B srem 41 
20088 DATA7384,32,32,44,52,36,48,48, 32 srem 129 
28899 DATA7392,32,40,56,408,56,48,8,@ srem 25 
20198 DATA7400,36,36,126,36,126,36,36,2 srem 167 
261198 DATA7408,12,19,13,198,57,120,129,48 srem 200 
20120 DATA7416,8,12,18,9,56,120,129,48 srem 115 
28138 DATA7432,8,8,8,8,56,120,128,48 srem 29 
20148 DATA744@,8,8,8,8,56,72,72,48 srem 201 
20158 DATA7448,0,0,8,0,48,72,72,48 srem 179 
20168 DATA7456,9,9,0,60,60,255,0,0 srem 161 
20178 DATA7464,2,6,58,122,50,2,2,2 srem 174 
20180 DATA7472,0,0,255,60,68,%,8,@ srem 161 
20198 DATA7480,16,24,60,48,24,60,48,24 srem 134 
26208 DATA7528,0,0,0,255,0,9,0,@ srem 48 
209285 DATA75@04,0,0,0,32,0,0,98,@ srem 248 
26218 DATA7648,0,252,254,255,254,252,8,@ srem 220 
28220 DATA-1 srem 110 
490900 POKE198,5:POKE631,78:POKE632,69:POKE633,87:POKE634,13:P 
OKE635,13 srem 48 

40005 POKE 36879,8:PRINT" {CLR} {YEL}PLEASE WAIT...{BLK}" 
srem 226 
49610 PRINT"{5 DOWN}PO198,1:P0631,13:LOAD";CHRS(34) ;"MATE";CH 
R$(34);",8" srem 135 
40020 PRINT "{4 DOWN}RUN" srem @ 
49030 PRINT" {HOME}":END srem 236 
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Program 2. Mate 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,’’ Appendix C. 


1 POKE36869,255:CLR 
5 DIMN$(36),T%( 6) ,NM%( 6) 


:rem 83 
srem 59 


7 Z=O0:X=0:S1=36876 : TTS$=4090 :M1=7168:CS=32768:L=1 :SM=7686 :V=368 


78 
18 FORI=1T0O36:READN3(I1) :NEXT: POKE36879,1190 


srem 125 
srem 31 


15 PRINT" {CLR} {WHT}ENTER NUMBER OF NOTES {DOWN}AND RESTS. 


{2 SPACES} (MAX.6@){2 SPACES}{DOWN}":INPUTA 


srem 190 


26 PRINT" {CLR}TO ENTER EACH NOTE OR {DOWN}REST MOVE CURSOR UP 


OR{DOWN}DOWN AND HIT Zz." srem 2 
25 PRINT:PRINT"RESTS REQUIRE ONLY ONE{ DOWN} INPUT AND NOTES TH 
REE {DOWN}INPUTS. ENTER R TO{4 SPACES}" srem 219 
30 PRINT"REPEAT PREVIOUS NOTE.":PRINT srem 157 
31 PRINT:PRINT"{YEL}{5 RIGHT}HIT ANY KEY{WHT}" srem 23@ 
32 GETSS : IFSS=""THEN32 RUN srem 6 
35 GOSUB1LOOA srem 169 
49 Z=Z+1:PRINT" {HOME} "TAB(255);TAB(158);"NOTE NUMBER "Z 
:rem 108 
50 B=98:G=1 srem 60 
55 GOSUB2000 srem 172 
68 X=INT((B+R)/22)-3:IFX=O0THENG=1.5 srem 15 
65 IFX<1ORX> 1OTHENS5 | srem 242 
76 ONXGOTO10@,119,120,139,140,158,160,170,188,185 srem 252 
188 T%(Z)=96/G:GOTO202 srem 220 
118 T%(Z)=48/G:GOTO28@8 srem 218 
120 T%(Z)=24/G:GOTO202 :rem 213 
138 T%(Z)=12/G:GOTO200 srem 211 
148 T%(Z)=6/G:GOTO280 srem 167 
158 T%(Z)=48:GOTO19@ srem 112 
168 T3(Z)=24:GOTO1IG :rem 107 
170 T%(Z)=12:GOTO19G srem 105 
188 T%(Z)=6:GOTO1LIDA srem 61 
185 Z=Z-2 :GOTO4d srem 197 
198 NM%(Z)=@8:GOTO422 :rem 123 
206 B=162 :GOSUB2900@ srem 38 
228 X=INT((B+R)/22) :IFX<1lORX>16THEN299 srem 245 
2390 B=170:GOSUB2990@ srem 40 


258 Y=INT((B+R)/22)-7 : I FY<-lLORY> 1THEN2392 


srem 89 


268 ONXGOTO276, 280, 298,308, 318,328,338, 349,358,368 , 378, 388, 39 


8,490,419,415 :rem 214 
278 NM%(Z )=N%(1+Y) :GOTO429 srem 195 
288 NM%(Z)=N%(4+Y) sGOTO429 s:rem 199 
298 NM&%(Z )=N%(7+Y) :GOTO426 srem 263 
308 NM%(Z)=N%(16+Y) :GOTO429 :rem 237 
318 NM%(Z)=N%(11+Y) :GOTO42G :rem 239 
328 NM%(Z)=N%(14+Y) :GOTO42G srem 243 
338 NM%(Z)=N%(17+Y) :GOTO42@ srem 247 
348 NM%(Z )=N%(18+Y) :GOTO422 srem 249 
358 NM%(Z )=N%(21+Y) :GOTO420 srem 244 
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368 NM%(Z)=N%(24+Y) :GOTO420 srem 248 
378 NM&(Z)=N%(27+Y) :GOTO420 srem 252 
380 NM%(Z)=N3(28+Y) :GOTO420 srem 254 
398 NM%(Z )=N%(31+Y) :GOTO429 s:rem 249 
480 NM%(Z)=N%(34+Y) :GOTO429 srem 244 
418 NM%(Z)=N%(35+Y) :GOTO42G srem 246 
420 IFZ=ATHEN459 srem 197 
438 GOTO4d srem 52 
4508 PRINT"{CLR}DO YOU WANT THE MUSIC PLAYED(Y/N)" srem 15 
460 GETSS:I1FSS=""THEN460 srem 123 
465 IFSS$<>"N"ANDSS<> "Y"GOTO460 srem 229 
478 IFSS="N"THEN59@ srem 61 
475 POKEV,15 :rem 183 
488 FORI=1TOA:POKES1 ,NM%(I) srem 145 
499 FORDT=1T024*TT$ /T%(1I) sNEXTDT: POKES] ,O@:NEXTI srem 232 
495 POKEV,@:POKES1 ,@:GOT045@ srem 216 
599 PRINT"{CLR}DO YOU WANT THE BASIC STATEMENTS( Y/N)?" 
srem 125 
698 GETSS : IFSS=""THEN600 srem 115 
618 IFSS<>"N"ANDSS<>"Y"THEN60@2 srem 207 
615 C=11:B=INT(A/11+.95) srem 12 
620 IFSS="N"THENEND srem 115 
625 PRINT" 200@POKE36878,15" srem l 
626 PRINT"2100S1=36876" srem l 
638 PRINT" 2150T="TTS% srem 144 
648 PRINT"2200FORI=1TO"A":READD,N" srem 9 
660 PRINT" 230@POKES1 ,N" srem 95 
670 PRINT"2490FORDT=1T024*T/D" srem 27 
675 PRINT"25Q0@NEXTDT: POS1,@" srem 74 
688 PRINT" 26@QNEXTI : PO36878 ,6" :rem 132 
685 FORK=1TOB:L=1+(K-—1 )*11:READLNS srem 225 
698 IFK=BTHENC=A-(B-1)*11l srem 146 
695 PRINT:PRINTLNS ; "DATA"; :FORI=LTOL-1+C:PRINTT$(1)"{LEFT},"; 
NM3(1)"{LEFT}, ";:NEXTI:PRINT"{LEFT} ": srem 160 
700 PRINT"{YEL}{5 RIGHT}HIT A KEY{WHT}" srem 171 
710 GETSS :IFSS=""THEN71@ srem 119 
726 NEXTK srem 35 
758 POKE36869 ,248:END srem 174 
908 DATA239, 238,238,237,236,236,235,233,233,232,231,229,229,2 
28,227,227 srem 244 
918 DATA225, 223,221,221,219,217,217,215,212,212,209,207,203,2 
G3 srem 58 
920 DATA2@1,199,199,195,191,187 srem 68 
958 DATA2808 ,2908,3000,3100,3208,3300 srem 59 
1988 PRINT" {CLR}":SC=38400 srem 49 


1190 PRINTTAB(47)"* {DOWN} {LEFT }f {DOWN }<{DowN}{2 LEFT}! 


{2 DOWN} {LEFT} #{ DOWN} 3{ DOWN} {2 LEFT} ' {DOWN}&{ DOWN} 


{2 LEFT }S{DOWN}R":POKE7838 ,34:POKE7838+SC,1 :rem 2 
1158 PRINT" {HOME}"TAB(54)"-{2 DOWN}{2 LEFT}----{2 DOWN} 

{4 LEFT }----{2 DOWN}{4 LEFT }----{2 DOWN}{4 LEFT }---- 

{2 DOWN}{4 LEFT}----{2 DOWN}{3 LEFT}-" srem ll 
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1400 PRINT" {HOME }"TAB(159)"]{DOWwN}£{ DOWN} {2 LEFT}[" srem 27 
1690 RETURN srem 167 
2008 R=0 :rem 129 
2918 POKESM+B+R, 69 : POKESC+B+R, 2 srem 85 
2028 GETSS :IFSS=""THEN20620 srem 207 
2625 IFSS="{ DOWN} "THENPOKE38400+B+R ,6 : R=R+22 srem 180 
2038 IFSS=" {UP} "THENPOKE38400+B+R, 6 :R=R-22 srem 5@ 
2048 IFSS="Z"THENPOKEB+R+SC ,6 :GOTO2870 srem 35 
2868 GOTO28194 srem 196 
2878 RETURN :rem 169 
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Piano Player 


Many programs are available to emulate a piano on the VIC-20, but most do 
only that. ‘Piano Player” not only plays in any of the four voices of the VIC, 
and five combinations of them, but also displays a piano keyboard and the 
musical staff. Depressing a VIC key will display the note played on the staff 
and the piano keyboard as well as play the note. So extensive is the graphics 
in this program that a 3K expander is required and 64 programmable charac- 
ters are used. 

The objective of this program is to emulate a piano/organ/synthesizer, 
and to display the full graphics of the musical staff and the piano keyboard. 
Since the three voices the VIC plays overlap, I decided to use the different 
voices to provide the lower octave and not to display the bass clef. This left 
more characters available to optimize what was being used. For instance, 17 
special characters were used to form the treble clef. 

As the programs are listed below, Program 1 will load and run Program 
2 if you use disk and save Program 2 with the filename PIANO.2. Tape 
users should delete lines 153, 155, and 156 of Program 1 and change line 
154 to read 


154 POKE198,1:POKE631,131:END 


What to Do with It 


Piano Player is in two parts to fit on the 3K expanded VIC. The first part of 
Piano Player loads the programmable characters and gives instructions after 
a short fanfare. Then, the second part prints the musical staff and the piano 
keyboard on the screen. Piano Player is set for voice 2 (treble) initially. To 
change voices, just depress one of the numbers from 1 to 9. Pressing 1 gives 
voice 1 (base), 2 gives voice 2 (treble), 3 gives voice 3 (soprano), and 4 gives 
voice 4 (noise). Keys 5-9 give combinations of the four voices. Try them for 
synthesized effects. 

The middle row of the keyboard (A through =) plays the white keys 
from notes B to F (1-1/2 octaves). Middle C is the key S. The black piano 
keys are right above this row of VIC keys from Q to 7. 

Press a few keys. You will notice that the sound and graphics last as 
long as a key is held down. Since the VIC reads only one key at a time, you 
won't be able to play two keys at once. 


Sample Songs 
To familiarize yourself with Piano Player and its piano/synthesizer capabili- 
ties, try these simple songs (these are the VIC keys): 


The slash (/) indicates a pause. 
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So DS GF 7 °S5.D S WG 7 S-S. kJ GE D7) I) GHG 
My Country ‘Tis of Thee 
2° 9 -D AS Df FOF GF DS / DS AS. / 
HHHHGF /GGGGF D / 
F GF DS F GH /jJjJ GFODsS 
Saints Go Marching In 
HK L: / HK © J AKL K HK J / 
K KJ HHK: : : L/ KUL K J J H 
Note Guide 
Here’s a conversion guide for VIC keys to notes: 
VIC Note VIC Note 
Q Bb A B 
E c# S Cc 
R Eb D D 
Y Ff FE 
U Gf G FE 
I Bb H G 
P C# J A 
@ Eb K B 
tT FR ne 

D 

; E 

= F 
Program 1. Piano Player 
For mistake-proof program entry, be sure to use “The Automatic Proofreader,”” Appendix C. 
10 PRINT" {CLR} {4 DOWN } [RED } #*¥ # RRR RK RRR RR RK RM srem 193 
Ll PRINT ERK KRKKKKKKKK KK KKK KKK EN srem 207 
12 PRINT"** VIC PIANO PLAYER **" :rem 2 
13 PRINT "RR RKKKKKKKEKEKKKKKKEKKK" :rem 289 
14 PRINT "XK RRKKKKREKKKKEKEKEKKKKEN -rem 214 
5@ S1=36974 :S2=36875 :S3=36876 :S4=36877 : SB=36879 : V=36878: E=25: 

Q=586 :W=100 :P=20G rem 86 

55 SX=SB:SY=S2 :SZ=SB:F1=207 : F2=195 :GOSUB9G rem 128 
56 SX=S1 :SY=S2 :SZ=SB:F1=261 :F2=192 :GOSUB9G rem 193 
57 SX=SB:SY=S2 :SZ=S3 :F1=2907 : F2=195 :GOSUB9IG rem 115 
58 SX=S1 :SY=SB:SZ=S3 :Fl1=299 :F2=207 :GOSUB9@G rem 11ll 
59 SX=SB:SY=S2 :SZ=SB:F1=225:F2=219:GOSUB9G srem 129 
68 SX=S1 :SY=S2 :SZ=S3 :F1=297 :F2=219:POKESB,57:GOSUB99 :rem 239 
61 FORD=15TO@STEP-1 : POKEV, D: FORT=@T0O25 : NEXTT :NEXTD : POKESB, 27: 


GOTO1 908 


srem 222 
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POKEV ,@: POKESX, Fl : POKESY, Fl : POKESZ, Fl :FORN=1T0O3 : POKEV,15 


:rem 118 
FORT=@0TOQ : NEXTT : POKEV ,@ : FORR=9TOE :NEXTR:NEXTN srem 74 
POKESX , F2 : POKESY , F2 :POKESZ, F2 : POKESB, F2+5:POKEV,15:rem 178 
FORT=O0TOW : NEXTT : FORT=@TOP :NEXTT : RETURN :rem 155 
FORI=7168T07 223 :POKEI , PEEK( 1+25688) :NEXT: FORI=7224TO7 287: 
POKEIL , PEEK( I1+26312) :NEXT :rem 187 
FORI=72498T07247 : POKEIL , 255-PEEK( 1I+26304) :NEXT srem 77 
FORI=7 272107279: POKEI , PEEK( I+2624@) :NEXT :rem 142 
FORI=7288T07295 :POKEI , 255—-PEEK( 1+25736) :NEXT srem 182 
FORI=7 296T07 303 : POKEI , 255-PEEK( I+25752) srem 225 
FORJ=7394T07679:READA: POKEJ ,A:NEXT: POKE52 ,27:POKE56,27:PR 
INT" {CLR}" srem 239 
PRINT" {BLK}{2 DOWN} WANT INSTRUCTIONS ?{DOWN}{6 LEFT}(Y/N 
" srem 4] 
GETAS : 1 FAS=""THEN112 srem 75 
IFAS="N"THEN1L53 srem 33 
PRINT" {CLR}{2 DOWN}USE YOUR VIC KEYBOARD {DOWN}AS A PIANO 
KEYBOARD: " s:rem 117 
PRINT" {DOWN}THE VIC KEYS FROM 'A' {DOWN}TO ‘'=' ARE THE WH 
ITE" :rem 183 
PRINT" {DOWN}KEYS FROM 'B' TO 'F', {DOWN}WITH 'S' AS MIDDL 
E. Cc." s:rem 122 
PRINT" {DOWN}THE BLACK KEYS ARE{4 SPACES}{DOWN}THE KEYS FR 
OM 'Q' TO" :rem 109 
PRINT" {DOWN} 'fT'." srem 83 
PRINT" { DOWN}--- PRESS ANY KEY ---" srem 231 
GETAS :I FAS=""THEN128 :rem 89 
PRINT" {CLR}{DOWN}THIS PROGRAM USES ALL {DOWN}THE VOICES O 
F THE VIC" :rem 133 
PRINT" { DOWN}-ALTO, SOPRANO, TENOR,{DOWN}AND NOISE." 
srem 147 
PRINT" {DOWN} IT STARTS WITH SOPRANO{ DOWN}THEN YOU CAN CHAN 
GE" srem ll 
PRINT" {DOWN}TO ANY OTHER BY FIRST {DOWN}PRESSING '1' THRU 
> Sale tae srem 159 
PRINT"{2 DOWN}FOR A CHART OF THE{4 SPACES}{DOWN}VOICES PR 
ESS ANY KEY" srem 215 
GETAS : IFAS=""THEN14@ srem 77 


PRINT" {CLR} {DOWN}1=V1{7 SPACES }5=V1+v2{4 SPACES} {DOWN} 2=V 
2{7 SPACES }6=V2+V3{4 SPACES} {DOWN} 3=v3{7 SPACES} 7=v1l+v3" 


s:rem 29 

PRINT" {DOWN} 4=V4{7 SPACES} 8=V1+V2+V3 {DOWN} 9=V1+V2+V3+V4 
{9 SPACES}{2 DOWN}WHERE:" srem 218 
PRINT" { DOWN} V1=ALTO{5 SPACES}V3=TENOR{2 SPACES} { DOWN} V2=S 
OPRANO{2 SPACES}V4=NOISE{2 SPACES}{DOWN}--- PRESS ANY KEY 
---" srem 121 
GETAS :I FAS="""THEN148 srem 93 
POKE 36879,15:PRINT" {CLR} {YEL}PLEASE WAIT....." srem 124 
POKE198,2:POKE 631,13:POKE 632,13 srem 24@ 
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155 PRINT "{HOME}{BLK}":PRINT "{2 DOWN} LOAD"; CHRS$( 34) ;"PIANO. 


2" >CHRS (34) 3",8": 
156 PRINT "{4 DOWN} RUN":PRINT" {HOME} ":END 
1988 DATA15,14,12,14,12,14,15,15 
1918 DATA249,176,16,176,16,176,249,240 
1020 DATA239,239,239,227,237,237,235,231 
1938 DATA14,14,14,14,14,14,14,14:REM#20 
1948 DATA240,249,240,48,208,208,176,112 
1058 DATAG,@,1,1,1,1,1,255 
1968 DATAG,1,1,3,7,14,28,255 
1978 DATAS6 , 48,113,97,99,99,99,255 
1088 DATA97 ,48,48,24,12,6,3,255:REM#25 
1898 DATAG,2@,8,24,60,118,99,227 
1108 DATA195,193,129,129,131,131,135,255 
1118 DATA135,135,79,94,94,60,124,255 
1128 DATA24@,240,208,144,16,8,8,255 
1138 DATA127,255,200,132,132,4,4,255 :REM#3 
1148 DATA130,194,34,2,1,1,255,255 
11508 DATAD,8,8,9,56,124,252,216 
116@ DATA128,192,99,28,9,8,98,@ 
1178 DATAS,128,128,128,128,128,128,255 
1180 DATA224,240,120,56,28,12,12,255 :REM# 35 
1198 DATA12,12,24,24,48, 32,192,255 
1208 DATA128,128,128,128,64,64,64,64 
1218 DATA64,128,08,0,0,0,0,@ 
1228 DATA1 ,63,127,255,254,124,0,@ 
1238 DATA] ,63,127,255,254,124,0,255 : REM#48 
1240 DATA254,124,0,09,0,0,0,@ 
1258 DATA254,124,9,0,0,0,0,255 
1260 DATA1,1,1,1,1,63,127,255 
1278 DATA1L,1,1,1,1,1,1,255 
1288 DATAG,®@,8@,8,1,1,1,255:REM#45 
1298 DATA®,62,127,255,254,252,128,255 
1300 DATAD,9,@,8,8,62,127,255 
1319 DATA254,254,128,128,128,128,128,255 
132@ DATA128,128,128,128,128,128,128,255 
1330 DATA128,128,128,0,0,0,0,0:REM #52 
1348 DATA128,128,128,8,0,0,0,255 
135@ DATA2@,62,20,20,20,62,20,255 
1360 DATAG,@,8,8,20,62,20,20 
1378 DATA20,62,28,8,08,8,0,@ 
1380 DATAG,@,8,0,29,62,20,255:REM#55 
1398 DATA20,62,20,0,0,0,0,255 
1400 DATAY,9,8,32,32,32,32,32 
1419 DATA6S,58, 34,34,36,40,48, 32 
1420 DATA32,32,32,32,60,50,34,255 
1438 DATA36,4@,48,32,0,0,0,0:REM#60 
1448 DATA36,49,48,32,0,0,8,255 
1450 DATAD,0,8,32,32,32,32,255 
1469 DATA6® ,59,34,34,36,408,48,255 


srem 183 
srem 213 
srem 54 
srem 122 
srem 238 
srem 221 
srem 167 
srem 5 
srem 124 
srem 228 
srem 213 
srem 27 
srem 227 
srem 38 
srem 228 
srem 175 
srem 121 
srem 9 
srem 233 
srem 133 
srem 185 
srem 180 
:rem 37 
srem 55 
srem 117 
srem 135 
srem 193 
s:rem 212 
srem 171 
srem ll 
s:rem 178 
:rem 83 
srem 1608 
srem 236 
s:rem 237 
srem 124 
s:rem 6/7 
s:rem 199 
srem 162 
s:rem 53 
srem 77 
:rem 163 
srem 156 
srem 75 
srem 119 
:rem 27 
srem 225 
srem 216 
srem 135 
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Program 2. Piano.2 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,’’ Appendix C. 


POKE 36879,27:PRINT"{CLR}" srem 5 
SM=7689 : CM=384909 srem 75 
S1=36874 :S2=36875 :S3=36876 :S4=36877 :V=36878 :SB=36879 :SX=2 
s:rem 209 
DEFFNA( X )=PEEK(197)=X : YS=SM+318 : YN=SM+4@6 : POKEV-9, 255 
:rem 198 
DIMA( 47) :FORN=0T0O46 : READA(N) :NEXTN srem 84 
FORW=SMTOSM+595 : POKEW, 7 :NEXT: FORQ=CMTOCM+565 :POKEQ,9 :NEXT 
srem 25 
FOR X=SM+44TOSM+153 : POKEX, 11 :NEXT s:rem 19 
Y=23 :POKESM+44, 22: FORX=SM+88TOSM+132STEP22:POKEX,Y:Y=Y+1: 
NEXTX srem 239 
Y=26 : FORX=SM+2 3 TOSM+17 7STEP22 :POKEX,Y:Y=Y+1l:NEXTX:rem 198 


Y=35 : POKESM+46 , 34 : FORX=SM+112TOSM+178STEP22 : POKEX, Ys: Y=Y+1 


sNEXTX s:rem 41 
T=SM+ 264 :M=SM+351 : B=SM+439 : FORK=T-22TOT—1 : POKEK, 11 :NEXT 
srem 127 
PRINT" {BLK} {HOME}{12 DOWN}" srem 214 
C=C+1:PRINT" {UP} OIHOGLOIHMIHOIHMIHOGLO" :rem 194 
I FC<4GOT0332 srem 173 
C=C+1:PRINT" {UP }MGLMGLMGLMGLMGLMGLMGLM" :rem 196 
IFC<8GO0T0336 s:rem 185 
FORK=B+1TOB+22 : POKEK, 10 :NEXT srem 210 
A=22 :B=44 : C=66 : D=88 : E=23 :rem 16 
GETAS : I FAS="""THEN35@ srem 83 
N=ASC (AS) : IFN< 480RN>94THEN35@ :rem 213 
F=A(N-48) :IFF>@ANDF<1@THENSX=F:GOTO35@ srem 48 
IFF=9 THEN35@ s:rem 163 
IFSX=1THENPOKES1,F:POKES2 ,08:POKES3 ,48:POKES4 ,@:POKEV,15:GO 
TO400 s:rem 208 
IFSX=2THENPOKES1 ,@:POKES2,F:POKES3,8:POKES4,0:POKEV,15:GO 
TO400 :rem 2190 
IFSX=3THENPOKES1 ,0:POKES2,@:POKES3,F: POKES4,@:POKEV,15:GO 
TO400 srem 212 
IFSX=4THENPOKES1 ,@:POKES2 ,0:POKES3 ,0@:POKES4,F:POKEV,15:GO 
TO400 srem 214 
IFSX=5 THENPOKES1,F: POKES2,F: POKES3 ,@:POKES4,0:POKEV,15:GO 
TO400 srem 238 
IFSX=6 THENPOKES1 ,9:POKES2,F:POKES3,F:POKES4,@:POKEV,15:GO 
TO490 s:rem 249 
IFSX=7THENPOKES1,F: POKES2,0:POKES3,F: POKES4,@:POKEV,15:GO 
T0480 srem 242 
IFSX=8THENPOKES1,F: POKES2,F:POKES3,F:POKES4,@:POKEV,15:GO 
TO466 s:rem 10 
IFSX=9THENPOKES1 , F: POKES2,F:POKES3,F: POKES4,F: POKEV,15:GO 
TO460 srem 34 
GOTO035@ srem 114 
IFAS="A"THEN60G s:rem 15 
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IFAS="Q"THEN619 srem 37 
I FAS="S"THEN6 20 srem 36 
IFAS="E"THEN6 30 srem 28 
IFAS="D"THEN640 srem 24 
IFAS="R"THEN6 58 :rem 44 
IFAS="F"THEN66@2 :rem 29 
IFAS="G"THEN67@ srem 36 
IFAS="Y"THEN68G srem 51 
IFAS="H"THEN692 srem 40 
IFAS="U"THEN70@ srem 41 
IFAS="J"THEN71@ srem 36 
IFAS="I "THEN72@ srem 32 
IFAS="K"THEN73@ srem 490 
IFAS="L"THEN74@ s:rem 38 
IFAS="P"THEN759 srem 48 
IFAS=": "THEN76@0 srem 23 
IFAS="@"THEN77@ s:rem 35 
IFAS="; "THEN78@ srem 27 
IFAS="="THEN7992 srem 35 
IFAS="f "THEN8OO srem 47 
GOTO35@4 srem 193 
GOSUB695 srem 177 
IFFNA( 17) THEN602 srem 124 
GOSU B6@8 : POKEY-A, 7: POKEY, 7 :GOTO35@ srem 123 
Y=SM+1 80 :K=6 :N=1 :GOSUB696 : RETURN srem 243 
POKEYN-K,N:POKEY-C,B: POKEY-B,B: POKEY-A, B: POKEY, 39 : RETURN 
:rem 181 
POKEV ,@: POKEYN-K, 7: FORX=3TO1STEP-1 : POKEY-A*X,11:NEXT:RETU 
RN srem 148 
GOSUB6@5 : POKEYS~-K-1,19:POKEY-E, 57:POKEY-1,58 srem 184 
IFFNA (48 ) THEN612 srem 139 
GOSUB6@8 : POKEY=-A, 7: POKEY,7:POKEY-E, 7: POKEY-1, 7: POKEYS-—K-1 
,15:GOTO35@2 srem 19 
GOSUB625 srem 181 
IFFNA (41 ) THEN622 srem 125 
GOSUB6 28 : POKEY-E, 7: POKEY-A, 7: POKEY-A+1,7:POKEY, 7 :GOTO35@ 
srem 5 

Y=SM+181 :K=5 :N=2 :GOSUB6 26 : POKEY-E, 11: POKEY-A+1,11:RETURN 
s:rem 212 

POKEYN-K,N: POKEY-D, 45: POKEY-C,B:POKEY-B,B:POKEY-A, 43 : POKE 
Y,41:RETURN srem 157 
POKEV ,@: POKEYN-K, 12: FORX=4TO1STEP-1 : POKEY-A*X,11:NEXT:RET 
URN srem 195 
GOSUB625 : POKEYS—K+1,16:POKEY-E,55:POKEY-1,54 :rem 177 
IFFNA (49 ) THEN632 srem 135 
GOSUB6 28 : POKEY-A, 7: POKEY, 7: POKEY-A+1,7:POKEYS—K+1,15:POKE 
Y-E, /:POKEY-1 ,7:GOTO35@2 srem 4 
Y=SM+161 :K=3 :N=3 : GOSUB606 srem 214 
IFFNA(18 ) THEN642 srem 133 
GOSUB6@8 : POKEY, 7 :GOTO35@ srem 236 
GOSU B665 :GOSU B6 56 srem 23 
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IFFNA(1@) THEN652 s:rem 127 
GOSU B628 : POKEY, 7 :GOSUB658 :GOTO35@ srem 76 
POKEY-E, 59: POKEY-1 , 60: POKEYS-K-1 , 20: POKEYS-K, 21 : RETURN 
srem 150 
POKEY-E, 11:POKEY-1,7:POKEYS—-K-1 ,9: POKEYS-K,8: RETURN: rem 9 
GOSUB665 srem 189 
IFFNA ( 42) THEN662 srem 134 
GOSU B628 : POKEY, 7 :GOTO35@ srem 2404 
Y=SM+162 :K=2 :N=4 :GOSUB6 26 : RETURN srem 256 
GOSU B675 srem 191 
IFFNA( 19) THEN672 srem 1492 
GOSU B6@8 : POKEY, 11 :GOTO35@ srem 26 
Y=SM+142 :K=0 :N=5 :GOSUB606 : POKEY , 49 : RETURN srem 72 
GOSUB675 :POKEY-1 ,52:POKEYS,17:POKEYS+1,18 srem 34 
I FFNA( 11) THEN682 srem 134 
GOSU B6@8 : POKEY, 11:POKEY-1,11:POKEYS,9:POKEYS+1,8:GOTO35@ 
srem 24 
GOSUB695 srem 195 
IFFNA (43 ) THEN692 srem 141 
GOSUB6 28 : POKEY, 11 :GOTO35@ srem 30 
Y=SM+143 :K=-1 :N=6 :GOSUB626 :POKEY, 42 :RETURN srem 126 
GOSUB695 : POKEYS+2 , 16: POKEY-E, 55: POKEY-1 , 56 srem 65 | 
IFFNA(51)THEN7@2 srem 124 
GOSUB6 28 : POKEY, 11: POKEYS+2,15:POKEY-E,11:POKEY-1,11:GOTO3 
5d srem 138 
Y=SM+123 :K=-3 :N=0 : GOSUB606 : POKEY, 40 srem 78 
IFFNA (20) THEN712 srem 122 
GOSUB6@8 : POKEY , 11 :GOTO035@ :rem 21 
GOSUB735 : POKEYS+K-1 , 20 : POKEYS+K, 21 :POKEY-1 ,59: POKEY+A-1 , 6 
1 s:rem 34 
IFFNA(12)THEN722 srem 125 
J=2 :GOSUB7 38 :GOSUB7 28 : POKEYS+K-1 , 9: POKEYS+K,8:POKEY-1,11: 
POKEY+A~-1 ,11 :GOTO35@ srem 29 
POKEY+C, 12:POKEY+D,59@ : RETURN srem @ 
POKEY+C, 7: POKEY+D, 7: RETURN srem 168 
GOSUB735 s:rem 185 
IFFNA (44) THEN7 32 s:rem 132 
J=2 :GOSUB7 38 :GOSUB7 28 s:GOTO035@8 srem 25 
Y=SM+162 :K=4:N=1 :GOSUB736 :GOSUB7 26 : RETURN srem 76 
POKEYN+K ,N: POKEY, 47: POKEY+A, 48 : POKEY+B,49:RETURN s:rem 193 


POKEV ,@ : POKEYN+K,12 :FORX=@TOJ : POKEY+A*X,11:NEXT: RETURN 


s:rem 60 
GOSUB745 srem 187 
IFFNA (21 )THEN742 s:rem 129 
GOSUB748 : POKEY+C, 7 :GOTO35@ srem 96 
Y=SM+1904:K=6 :N=2 :GOSUB746 : POKEY+C, 12 : RETURN srem 185 


POKEYN+K,N: POKEY , 46: POKEY+A, 49: POKEY+B,49:RETURN :rem 184 
POKEV, @: POKEYN+K, 7 :FORX=@TO2 : POKEY+A*X,11:NEXT: RETURN 


srem 249 
GOSUB745 : POKEYS+K, 17 : POKEYS+K+1,18:POKEY-1 ,52 srem 190 
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IFFNA(13)THEN752 :rem 132 
GOSUB748 : POKEY+C, 7: POKEYS+K , 9: POKEYS+K+1 ,8:POKEY-1,11:GOT 
0358 srem 74 
Y=SM+83 :K=7 :N=3 :GOSUB7 36 : POKEY+C, 49 : POKEY+D, 59 srem 63 
IFFNA (45 ) THEN762 srem 139 
J=3 :GOSUB7 38: POKEY+D, 7 :GOTO358 z:rem 86 
GOSUB785 :K=9 : POKEYS+K-1 ,19 : POKEY-E, 62 : POKEY-1,63 srem 185 
IFFNA( 53) THEN772 srem 140 
GOSUB748 : POKEY+C, 11 :POKEYS+K-1,15:POKEY-E,11:POKEY-1,11:G 
OTO35@ srem 121 
GOSUB785 s:rem 195 
IFFNA( 22) THEN782 srem 138 
GOSU B748 : POKEY+C,11:GOT0O3598 srem 143 
Y=SM+85 :K=9 :N=4 :GOSUB746 : POKEY+C, 49 : RETURN :rem 164 
GOSUB795 srem 197 
IFFNA( 46) THEN792 s:rem 146 
J=4 :GOSUB738 :GOTO35@ srem 198 
Y=SM+64 :K=1@0 :N=5 :GOSUB7 36 : POKEY+C , 49 : POKEY+D, 51: RETURN 
z:rem 141 
GOSUB7 95 : POKEYS+K+1, 16: POKEY-1,55:POKEY+A-1,56 srem 16 
IFFNA (54) THEN882 :rem 129 
J=4 :GOSUB7 38 : POKEYS+K+1 ,15:POKEY-1,11:POKEY+A-1,11:GOTO35 
4) srem 255 
DATAG,1,2,3,4,5,6,/7,8,9 :rem 117 
DATA228,231,0,232,0,9,229,191,9,0 srem 904 
DATA2@1,199, 207, 209,215,221, 219,223,225,9 srem 253 
DATAS ,@,227,187,203,195,9,217,0,9 srem 1900 
DATAD ,212,09,0,09,9,233 s:rem 5 
END srem 154 
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This drawing program for a VIC with 8K or more expansion and a joystick 
uses the bitmap screen to test your artistic talent. Just type in Program 1 and 
save it to disk or tape. Then type in Program 2 and save it. Disk users must 
save Program 2 with the filename BM PIXEL.2. Tape users should save Pro- 
gram 2 on the same tape immediately following Program 1. Tape users must 
also delete lines 15 and 20 from Program 1 and substitute the following for 
line 10: 

10 POKE8192,0:POKE44,32:POKE643,32:POKE198,1:POKE631,131 


Drawing Pixel by Pixel 
Once you have the programs saved, run Program 1. It will change the loca- 
tion of BASIC and automatically load and run Program 2. The first thing 
you'll see is the character set printed to the screen in what appears to be ran- 
dom order. Then the whole screen is erased and changed to the bitmapped 
screen which is also erased. Finally, a single pixel dot will appear in the mid- 
dle of the screen. Use a joystick to draw, one pixel at a time. It you wish to 
move the drawing position to another part of the screen without leaving a 
line, simply hold down the button while pushing on the stick. 


Program 1. Bitmap Pixel 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


5 REM THIS PROGRAM MOVES BASIC srem 85 
18 POKE8192,0:POKE44,32:POKE643,32:POKE198, 2: POKE631,13:POKE 
{ SPACE}632,13 srem 73 
15 PRINT "{CLR}":PRINT "{2 DOWN}LOAD";CHRS$(34);"BM PIXEL.2":C 
HRS (34);",8"s:PRINT "{5 DOWN}RUN" srem 39 
26 PRINT "{HOME}" :rem 70 


Program 2. BM Pixel.2 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


5 REM MOVES SCREEN MEMORY srem 60 
190 POKE36866, 150 :POKE36869, 240 s:rem 154 
26 POKE 299,0:POKE210,30:POKE201,@0:POKE202,0:POKE211,90:POKE21 
4,0 z:rem 121 

30 POKE648,39:POKE244,15@ srem 136 
98 DD=37154: Pl=37151:P2=37152 :rem 38 
99 REM SET UP SCREEN :rem 167 
198 POKE36879,1907:PRINTCHRS (147) srem 74 
192 POKE36867, PEEK(36867)OR1 srem 82 
194 FORI=0TO21 :POKE768@+I , 220: POKE7922+1,220:POKE7944+I1, 220:N 
EXT srem 9 
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FORI=6TO21 : POKE38400+I1 , 3: POKE38642+I1,3 : POKE38664+1,3 :NEXT 


:rem 120 
FORI=9@TO15 : POKE7616+1,255 :NEXT srem 49 
FOR L=@TO21:FORM=9 TO9 :rem 239 
POKE 7 762+M* 22+L, L* 19+M :rem 138 
NEXT: NEXT s:rem 76 
POKE 36869, 252 :rem 153 
FORI=4996T0O7615:POKEI ,@:NEXTI srem 28 
REM SCREEN IS{5 SPACES}Y=169 HIGH BY X=176{4 SPACES}WIDE 
:rem 27 
X=88 : Y=80 s:rem 213 
GOSU B190G s:rem 211 
IFJ1=1 THENY=Y+1 :rem 133 
IF J3=1THEN Y=Y-1 :rem 138 
IFY>159 THEN Y=159 s:rem 1990 
IFY<OTHEN Y=@ srem 223 
IFJ@=1 THENX=X+1 s:rem 134 
IFJ2=1 THENX=X-1 srem 139 
IFX> 175 THENX=175 s:rem 188 
IFX<@THENX=@ z:rem 225 
CH=INT(X/8)*10+INT(Y/16) srem 63 
RO=(Y/16-INT(Y/16) )*16 :rem 154 
BY=4996+16*CH+RO srem 82 
BI=7-(X-( INT(X/8)*8) ) srem 69 
IFFB=8 THENPOKEBY, PEEK(BY)OR(2TBI) :rem 93 
IFFB> .STHENPOKEBY, PEEK( BY) AND(255-(2TBI) ) :rem 226 
GO TO 200 :rem 98 
REM SUBROUTINE TO READ JOY SWITCHES :rem 208 
POKEDD, 127: P=PEEK(P2) AND128 :rem 198 
JG=—-( P= ) :rem 181 
POKEDD, 255 : P=PEEK(P1) s:rem 1 
J1l=-((PAND8)=@) s:rem 20 
J2=-((PAND16)=9) srem 69 
J3=-(( PAND4 )=@ ) :rem 20 
FB=-((PAND32)=@) srem 81 
RETURN :rem 169 
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“Graph” will allow you to create bar graphs on your VIC. A maximum of 16 
items can be graphed, and the bars can be of eight different colors. Once a 
graph is created, it can be stored on cassette tape and later reproduced on 
the VIC’s screen. | 

When you create a graph, you must give it a title. The graph will be re- 
ferred to by this title when it’s recalled if you save it on tape. 

Using the graph program is easy. Suppose you want to graph the 
monthly fuel costs for a year. Enter the number 12 so the VIC will know 
how many items to graph. The total number of items that can be graphed is 
limited to 16. 

The bars drawn by the program are a minimum width of one column. 
However, if fewer than 16 items are graphed, the program adjusts the width 
of the bars to a maximum number of columns while maintaining their 
uniformity. 

You can set the vertical axis maximum value or the value of the vertical 
axis increments. Since the number of vertical divisions is set at 20 in the pro- 
gram, entering a vertical maximum of 100 would be identical to setting the 
vertical increments to 5. 

The top row of the screen is reserved for the title of the graph. The next 
20 rows of the screen are used for drawing the bars of the graph. The row 
below the bars is occupied by the horizontal axis. The last row of the VIC’s 
screen contains the letters that label the horizontal axis. Thus, the entire 23 
rows of the screen are occupied by the graph. 

The program requires the user to identify the vertical axis, that is, what 
the numbers along the vertical axis represent. In the case of a graph of the 
year’s fuel costs, the vertical axis would be identified as ““Cost in Dollars.” 

Lines 177-198 of the program contain a FOR-NEXT loop in which the 
name, bar color, and value for each item are entered starting with item A. In 
the example of graphing a year’s fuel costs, the name of item A would be 01 
for January. Select the color of each bar by entering the number that corre- 
sponds with the color wanted according to the color chart that is printed on 
the screen. If the bar representing January’s fuel costs was to be made yel- 
low, the number 7 would be entered. (Remember that a white bar won’t be 
distinguishable on a white screen.) The value of the item is the number of 
units of the item. For the graph of a year’s fuel costs, the value 85 would be 
entered for item A if January’s fuel cost was $85. 

Lines 210-280 contain two FOR-NEXT loops. The first prints the vertical 
axis and the second labels it. Line 265 of the program limits the length of the 
numbers labeling the vertical axis to prevent them from running into the bars 
of the graph. If a number that will go along the vertical axis is longer than 
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two digits, the program may produce an OUT OF MEMORY error. Line 290 
of the program draws the horizontal axis of the graph. 

After the graph is completely printed on the screen, the routine in lines 
620-720 scans the keyboard. If a letter that is a horizontal label is pressed, 
the name and value of the corresponding item is printed at the top left of the 
screen. If the V key is pressed, the vertical axis is identified. 

Pressing the S key will save the graph on tape or disk. Disk users 
should change lines 60 and 2010 to: 

60 OPEN 1,8,2,A$ 
2010 OPEN 1,8,2,A$+%",S,W” 


To reproduce a previously saved graph on the screen, simply run the 
program and select to display a stored graph. 

“Graph” is quite a useful program for graphing all types of information, 
particularly in the area of budgeting. 


Graph 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 


5 B$="ABCDEFGHIJKLMNOP":HS$=CHR$ (112) :IS=CHRS(145) :JS=CHRS$(17) 


:KS=CHRS$ (147) :LS=CHRS(19) srem 83 
7 MS=CHRS (18) :NS=CHRS$ (146) :OS=CHRS$(157) :rem 79 
18 PRINTKS;:J$;:J$:JS$:JSTAB(3)M$"DO YOU WISH TO"NS srem 241 
15 PRINTJSTAB(2)"A)CREATE A NEW GRAPH" srem 186 
20 PRINTTAB(2)"B)DISPLAY A STORED":PRINT"GRAPH" :rem 157 
25 PRINTJS"SELECT "MS;:"A"NS" OR "MS"B"NS; srem 146 
30 INPUTFS s:rem 93 
35 IFFS="A"THEN1OP srem 227 
40 PRINT"ENTER THE GRAPH'S":PRINT"TITLE"; s:rem 72 
45 INPUTAS srem 94 
5@ PRINT"OPENING FILE" s:rem 1062 
55 REM LOAD GRAPH srem 224 
69 OPEN 1,1,98,AS :rem 19 
65 INPUT#1,AS s:rem 224 
67 INPUT#1,G$ srem 232 
76 INPUT#1,A srem 184 
75 INPUT#1,B srem 198 
80 DIMDS (A) :DIMC(A) :DIMD(A) :rem 15 
85 FORI=1TOA :rem 239 
87 INPUT#1,DS(TI) srem 129 
98 INPUT#1,C(TI) :rem 86 
92 INPUT#1,D(I) :rem 89 
95 NEXT I :rem 246 
97 CLOSE 1:GOTO29@4 :rem 28 
1800 PRINTKS :rem 141 
1186 PRINTMS"GRAPH'S TITLE"NS; :rem 239 
120 INPUTAS :rem 136 
125 PRINTJS"MAXIMUM OF 16 ITEMS" srem 115 
138 PRINTJS"HOW MANY ITEMS TO" s:rem 27 
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PRINT"GRAPH"; srem 19 
INPUT A z:rem 1963 
PRINTJS"DO YOU WISH TO:"JS srem 236 
PRINT"1)SET VERTICAL AXIS":PRINT "MAXIMUM" srem 193 
PRINT"2)SET VERTICAL": PRINT" INCREMENTS" srem 15 
PRINTJS;MS "SELECT (1 OR 2)"NS; : INPUTN srem 96 
IFN=1THEN163 srem 177 
PRINTJS"THERE ARE 29 VERTICAL":PRINT"DIVISIONS." srem 218 
PRINTJS "INPUT VERTICAL": PRINT" INCREMENTS"; srem 254 
INPUTB:GOTO165 srem 122 
PRINTJS"INPUT VERTICAL": PRINT"MAXIMUM" ; s:rem 39 
INPUTN : B=N/ 2 s:rem 17 
PRINTKS sJS" IDENTIFY VERTICAL": PRINT"AXIS": sINPUTGS 
srem 235 
PRINTJSSPC(6)MS"BAR COLOURS"NS;J$ srem 209 
PRINTSPC(2)"BLACK=@"SPC(4)" WHITE=1" srem 64 
PRINTSPC(4)"RED=2"SPC(6) "CYAN=3" :rem 113 
PRINTSPC(1)"PURPLE=4"SPC(5)"GREEN=5" srem 173 
PRINTSPC(3)"BLUE=6"SPC(4)" YELLOW=7" srem lll 
DIMDS (A) :DIMC(A) :DIMD(A) :rem 66 
PRINTJS;MS"IDENTIFY ITEMS"NS;:J$ srem 129 
FORI=1TOA s:rem 33 
PRINT"NAME ITEM "MS;MIDS(BS$,I,1)NS$;3 srem 154 
INPUTDS (TI) s:rem 45 
PRINT" ITEM "MS;MIDS(BS,1I,1);N$" BAR COLOUR"; s:rem 166 
INPUT C(I) srem 13 
PRINT"VALUE OF ITEM "MS;MIDS(BS,I1,1)NS; :rem 147 
INPUTD(I) srem 8 
IFD(1)>(20*B) THEN19@ srem 47 
PRINTLS : FORO=1T06 : PRINTJS :NEXTO : FORJ=7966T0O8G@98 : POKEJ , 32: 
NEXTJ s:rem 87 
NEXTI srem 42 
PRINTKS :J$:J$;:J$TAB(3)"TO GET AN ITEM'S ":PRINT" NAME AND 
VALUE ENTER" srem 221 
PRINTTAB(3)"THE LETTER THA "sPRINT" REPRESENTS THE ITEM." 
srem 246 
PRINTJS" ENTERING "MS"S"NS "WILL SAVE"SPC(3)"THE GRAPH ON 
{SPACE }TAPE. " srem 76 
PRINTJSTAB(4)"ENTERING "MS"X"NS"WILL "sPRINTTAB(5)"END PR 
OGRAM." srem 14 
PRINTJS" ENTER "MS"V"NS"TO IDENTIFY"SPC(6)"VERTICAL AXIS" 
srem 85 
PRINTJS"ENTER ANY LETTER TO":PRINT"CONTINUE" ; srem 92 
INPUTFS :PRINTKS srem 202 
REM DRAW AXIS srem 226 
FORI=1 T0208 srem 54 
PRINTTAB(4)HS srem 233 
NEXTI s:rem 29 
PRINTTAB(2)"9" srem 241 
PRINTLS srem 148 
FORI=8TO19 srem 66 


CS=STRS((B*20)-(B*I1I)):CS=LEFTS(CS$,5) 
PRINTOS;CS 

NEXTI 
FORI=1T017:PRINTTAB(3+1)HS;IS :NEXTI 
G%=16/A:DIME(16) :DIMF(16) :H=1:DIML(16) 
FORI=1TOA 

FORJ=1TOG$% 

E(H)=INT(D(1)/B) 
K=(D(1I)/B)-E(H) 

F(H)=98 

IFK>.75THENF (H)=160 
IFK<.25THENF(H)=32 

L(H)=C(I) 

H=H+1 

NEXTJ 

NEXTI 

H=H-1 

REM DRAW BARS 

FORI=HTO1STEP-1 

FORJ=1 TOE(TI) 

IFE(1I)=0THEN47@ 
POKE8146+1I-(J*22),16@ 
POKE38866+1I-(J*22),L(TI) 

NEXTJ 

POKE8146+1I-(J*22),F(I) 
POKE38866+1I-(J*22),L(I) 

NEXTI 

H=1:PRINT 

FORI=1TOA 

FORJ=1 TOG$% 
PRINTSPC(4+H)MIDS(BS,1,1)I1$ 
H=H+1 

NEXTJ 

NEXTI 

M=LEN(AS) :M=((22-M)/2) 
GOSUB198@ : PRINTLSTAB(M)AS 
GETES:IF ES="X"THEN: PRINTKS :END 
IFES="V"THENGOSUB19@@ : PRINTLS;:GS$ :GOTO71@ 
IFES=""THEN6 20 
IFES="S"THENGOTO2000 

FORI=1TOA 
IFES=MIDS$(BS,1I,1)THEN70@ 

NEXTI 


GOSUB1000:IFI=<A THEN:PRINTLS;DS(I);" -—";D(T) 


FORJ=1TO19609 :NEXT 
GOTO68G 
FORJ=7688T0O7791 
POKEJ , 32 
NEXTJ 
RETURN 
PRINTKS"OPENING FILE" 
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2005 
2019 
2020 
2625 
2030 
2040 
2050 
2068 
2076 
2080 
2096 
21980 
2119 
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REM SAVE GRAPH srem 76 
OPEN1,1,1,A$ srem 113 
PRINT#1,AS$S srem 54 
PRINT#1,GS$ s:rem 65 
PRINT#1,A srem 19 
PRINT#1,B srem 21 
FORI=1TOA srem 73 
PRINT#1,DS$(1I1) s:rem 215 
PRINT#1,C(TI) srem 179 
PRINT#1,D(I1) :rem 181 
NEXTI srem 83 
PRINT"CLOSING FILE" srem 195 
CLOSE 1 srem 107 
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Rainbow Border 


When I first started experimenting with changing the screen format (number 
of rows and columns) on the VIC, I wanted a way to use the screen border. 

It happened that I was also getting into machine language at the same time 

and was trying to duplicate things I had done in BASIC as exercises. 

I decided to see what would happen when I changed decimal location 
36879 (screen and border color register) as rapidly as possible in machine 
language. Wow! The entire VIC screen turned into fragments of different col- 
ors. It changed the screen color many times for each scan line on the TV. I 
decided that the routine needed a delay loop. After adding the loop and run- 
ning the program again, I saw bars of colors scrolling very fast in the border. 
I had also changed the range of colors so that the screen color stayed the 
same. By fine-tuning the delay loop, I was able to broaden and stabilize the 
bars of color. 


Color Scrolling 
“Flag” was the first program I wrote to use this technique. It is very short 
and easy to type in, but as always be sure to get the DATA statements right. 
The machine language routine that does the work is represented by those 
numbers in the DATA statements, and if they are wrong, you could crash 
the program. So save the program to disk or tape before running it. 

The next idea I got was to use multicolor characters on the screen, which 
I knew would be partly made up of border colors. This allows the scrolling 
colors to “show through” the characters where there is a bit that is in the 
border color. This is the technique used in ‘Rainbow Border.” The PRINT 
statements in lines 30-45 can be replaced by whatever message you want. 
You can also stop the program and then type NEW. This leaves the machine 
language routine protected in the upper 256 bytes of memory on a VIC with 
the Super Expander cartridge, 3K RAM expansion, or standard memory. You 
can then do graphic work with the Super Expander or keyboard symbols and 
SYS 7424 to activate the color scroll. 

This is especially good for Super Expander programs in GRAPHIC 1. 
What you do is develop a nice graphic design program and then add lines 
10, 50, and 60 to call the routine to scroll the border colors. 

One other thing to make this more flexible: The screen and border range 
of colors is set by the second and thirteenth DATA numbers. These should 
be changed in increments of 16 to change the screen color. Also make sure 
you put the SYS 7424 after the design part of the program since the machine 
language routine doesn’t return to BASIC. 

The third program, ‘’S.X. Demo” is for the Super Expander. It is a 
demonstration of having the border colors “show through” the design. Note 
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that to use the border colors in the design, your design must be in GRAPHIC 
1, and the first number after CIRCLE, DRAW, and so forth, must be 1. This 
is a short and easy program to type in, but again be careful with the DATA 
statements. 


Program |. Flag 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 


28 PRINT" {CLR} {WHT}"+ :FORI=7424T07424+32 :READK:POKEI,K:NEXT 


srem 197 

30 REM**TO DISABLE STOP KEY**:POKE 808,190 srem 123 
49 POKE56,29:POKE52, 29 srem 252 
50 FORT=1T0O5 srem 230 
68 PRINT"{1@ SPACES}"; :rem 114 
76 PRINT" ##RRRRRKKEK" © SNEXT srem 144 
88 SYS7424 srem 56 
98 DATA173,2,144,41,128,9,19,141,2,144,169,150,141,3,144,160, 
196,149 srem 43 
100 DATA15,144,162,137,202,208,253,136,192,184,208,243,76,15, 
29 srem 74 


Program 2. Rainbow Border 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


19 PRINT" {CLR}"; :FORI=7424T07424+17 : READK: POKEI ,K:NEXT: 
srem 252 
20 POKE646,13:POKE56, 29: POKE5S2, 29: POKE36878, 32 :rem 157 
25 REM ***POKE 808,188 TO DISABLE STOP KEY*** :rem 153 
30 PRINT" {CLR}{2 DOWN}{2 SPACES}K+}{3 SPACES}K+}{3 SPACES} +3 
{5 SPACES}K2 +}" :rem 39 
31 PRINT"{2 SPACES}K+3{3 SPACES}£+3{3 SPACES}K+}{4 SPACES }+} 
{2 SPACES } k+}" srem 115 
32 PRINT"{2 SPACES}K+3{3 SPACES}K+3{3 SPACES}K+}{3 SPACES}+} 
" srem 206 
33 PRINT"{2 SPACES}K+}{3 SPACES}K+}3{3 SPACES}K+}3{3 SPACES}+} 
” srem 207 
34 PRINT"{2 SPACES}K+3{3 SPACES}K+3{3 SPACES}K+3{3 SPACES }€+} 
7 srem 2988 
35 PRINT"{3 SPACES}K+} k+}{4 SPACES}K+}3{3 SPACES}K+} 
{3 SPACES}" :rem 2089 
36 PRINT"{3 SPACES}K+} k+}3{4 SPACES}€+}3{4 SPACES}+} 
{2 SPACES } k+}3" srem 120 
37 PRINT"{4 SPACES}K+3{5 SPACES}K+}3{5 SPACES}K2 +3{3 DOWN}" 
srem 6 
38 PRINT"{5 SPACES}QQQ{5 SPACES }QQQ" srem 34 
39 PRINT"{4 SPACES}Q{3 SPACES}Q{3 SPACES}Q{3 SPACES }Q" 
srem 129 
48 PRINT"{8 SPACES}Q{3 SPACES}Q{3 SPACES }Q" srem 168 
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PRINT"{8 SPACES}Q{3 SPACES}Q{3 SPACES}Q" :rem 169 
PRINT"{7 SPACES}Q{4 SPACES}0{3 SPACES }0" :rem 179 
PRINT"{6 SPACES}Q{5 SPACES}Q{3 SPACES}0" srem 171 
PRINT"{5 SPACES}OQ{6 SPACES}Q{3 SPACES }0" :rem 172 
PRINT"{4 SPACES }QQQQQ{4 SPACES}QQQ" —_ :rem 194 
SYS7424 a :rem 53 
DATA169,111,140,15,144,162,136, 202,208, 253,136,192,183,298 


,243,76,8,29 srem 42 


Program 3. S.X. Demo 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


16 GRAPHIC] :COLORG,1,5,5 :rem 152 
20 FORX=O8TOSOOSTEP5G s:rem 231 
38 CIRCLE1,511,511,511-x,xX s:rem 152 
40 NEXT s:rem 163 
5@ FORI=7424T07424+17 :READK :POKEI ,K:NEXT :rem 237 
69 DATA169,15,148,15,144,162,136,202,208,253,136,192,7,208,24 

3,76,9,29 :rem 169 
196 SYS7424 srem 97 
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| Music Maker 


“Music Maker” will help you create music on your VIC. It requires at least 
8K of memory expansion. 

There are six parameters associated with making music. They are the 
four voices, the volume, and the duration. These six parameters make up a 
music set. By placing music sets one after another, you can create a com- 
position of music. Each music set takes six bytes of memory; therefore, you 
can have a lot of music on an expanded VIC. 

There are two programs used for creating, playing, and saving music. 
They are “Music Maker’ and ‘Music Player.” Music Maker allows you to 
create, edit, and play music sets. You can save music in a file and load it into 
memory for later use. Music Player contains the machine language routine 
and takes care of memory pointers. After you have created the music, you 
can combine this program with your own. 


Music Maker 
In the main menu, you have eight choices. You can Add Music Sets, Edit 
Music Sets, Save Music, Load Music, Turn Music On, Turn Music Off, Erase 
Music, or Quit Program. 

Add Music Sets. The set number that you are adding is displayed. The 
first music set is set 0. Below the displayed set number, all the sound param- 
eters are listed. These are voices 1-4, the loudness and duration of the set. 
After each question mark the previous value of that parameter is displayed. 
This makes entering the same values for the parameters easy. It also shows 
you what the previous sound set had. The four voices are in the form of ON, 
where O is the octave (1, 2, or 3) and N is the note. The note can be A-G 
plus sharps. The # symbol is used for sharps. No flats are allowed. If a voice 
is to be silent, then its value will be NN. All four voices start off with the 
value of NN. 

The loudness can be from 0 to 15. A value of 0 would mean there 
would be no sound heard. This is one way to create a rest in the music. If a 
value greater than 15 is typed in, it is changed to 15; a value of less than 0 is 
changed to 0. The duration can be from 0 to 255. The number of seconds 
can be calculated by dividing this value by 60. A value of 0 would give the 
shortest duration (1/60 second), and 255 the longest (255/60, or approxi- 
mately 4.25 seconds). When entering values, you must press the RETURN 
key on each line. The cursor keys should not be used. After values for all the 
parameters are entered, you are asked if you are finished adding music sets. 
If you wish to enter another music set, press the RETURN key; otherwise, 
type a Y to return to the main menu. 
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Edit Music Sets. The edit mode has its own menu displaying seven 
functions: View/Change a Set, Play a Set, Play Composition, Step Com- 
position, Insert a Set, Delete a Set, and Quit Edit Mode. 

The View/Change a Set function allows you to look at a music set and 
change its parameters if you wish. After you type in a number for an existing 
set, the values of the parameters associated with that set are displayed. They 
are in the same format as they are in the Add mode. Type Y to change 
something, and the cursor is moved up to the top of the list. The set is re- 
entered, and the old set in memory is replaced with the new one. After the 
set is reentered, the screen is cleared, and you are asked for another set 
number. If you are through, type a negative number. 

The Play a Set function will let you hear how any set sounds. When 
asked for a set number, enter the number you wish; a negative number will 
return control to the edit menu. 

The Play Composition function plays all the music sets that you have 
created and displays the number of the set currently being played. 

The Step Composition function is similar to the Play Composition func- 
tion; however, after each set is played, you must press any key to hear the 
next set. 

Use the Insert a Set function to insert a new set anywhere in the com- 
position. Enter a valid set number. The new set will be inserted in the po- 
sition of the number you typed. The set that is currently in that position will 
shift to follow the new set. Type in the values for the new set. If you are 
through, type a negative number. 

Be careful using the Delete a Set function, for once a set is deleted, you 
cannot recall it. When you type in a set number, the values of the parameters 
of that set are displayed. Any sets that come after the one deleted are moved 
down to fill the gap. Once again, enter a negative number to return to the 
menu. 

The Quit Edit Mode function returns control to the main menu. 

Save Music. The music can be saved in a file on tape or disk. You are 
asked for the name of the file you wish to save the music under. If you don’t 
wish to save the music, type STOP, and control is returned to the main 
menu. Otherwise, a file is opened under the designated name, and the music 
is saved. Control is returned to the menu after it is saved. 

Disk users should change the following lines: 

3400 OPEN 1,8,2,N$+ “,S,W”:PRINT#1,SS 
3520 OPEN 1,8,2,N$:INPUT#1,SS 


Load Music. As with saving music, you are asked for the name of the 
file. Entering STOP returns control to the main menu. Type in the name of 
the file to load it. The proper file is then opened, and the set is loaded into 
memory. 
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Turn Music On. This changes the interrupt pointers to point to the mu- 
sic machine language routine. If you have any music sets in memory, they 
will be played after the time delay. After all the sets have been played, the 
silent period occurs again, and the music starts over. While the music is 
“on,” you can add or edit the music. This allows you to hear the additions or 
changes as you make them. 

Turn Music Off. This changes the interrupt pointers back to their orig- 
inal values and turns off the music. 

Erase Music. If you want to start from scratch, use this function. It will 
erase any existing music sets in memory. You are asked if you are sure you 
want to do this. You must type YES to erase the music. 

Quit Program. This stops the program, but you are first asked if you are 
sure you want to end it. You must type YES to stop the program. If you 
want to get back into the program, type GOTO 3610 and control will be re- 
turned to the main menu. 


Music Player 
The operation of this program is quite simple. It contains three machine lan- 
guage routines: the music routine, turn music off, and turn music on. If you 
use this routine in your program, turn the music on with SYS UN; to turn it 
off, type SYS OF. | 

When you turn the music on, the time delay starts and the music starts 
playing with the first set. When you turn it off, the machine language routine 
stops executing and the sound registers are cleared. 

If you use this program as an introduction to your program, you'll need 
to know where the two machine language routines begin, since all variables 
are lost. Check the values of UN and OF before loading the second program. 

Disk users should change line 620 to 


620 OPEN 1,8,2,N$:INPUT#1,SS 


Program |. Music Maker 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,”” Appendix C. 


11498 GOTO3980 srem 203 
1150 REM srem 171 
1160 REM s:rem 172 
1178 REM *****~ SUBROUTINES ****** srem 8 
1188 REM srem 174 
1198 REM s:rem 175 
12060 REM srem 167 
1218 REM *** DISPLAY SOUND SET *** srem 47 
1220 PRINT" {DOWN}" srem 167 
1239 FORX=1TO4:PRINT"VOICE #"X"? ":NS(X) sNEXT srem 152 
1249 PRINT"LOUDNESS?"V:PRINT"DURATION?"D srem 142 
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RETURN srem 168 
REM srem 173 
REM *** INPUT SOUND SET *** srem 175 
REM srem 175 
FORX=1T04:PRINT"VOICE #"X;:sINPUTNS(X) :NEXT srem 229 
INPUT"LOUDNESS":V:INPUT"DURATION":D srem 137 
RETURN srem 165 
REM srem 170 
REM *** STORE SET IN MEMORY *** s:rem 144 
REM :rem 172 
IFV> 15 THENV=15 s:rem 122 
IFV<OTHENV=2 srem 13 
POKEBS+SN*6,V srem 61 
FORX=1T04 :OS=LEFTS(NS(X),1):NS=RIGHTS (NS(X),LEN(NS(X))-1 
srem 304 
O=VAL (OS) : IFO=8ORO> 3THENT=@ :GOTO143@ :rem 17 
FORY=1TO12 : IFMS(Y)=NSTHEN1 420 s:rem 2 
NEXTY : T= :GOTO1430 srem 148 
T=V((O-1)*12+Y) srem 14 
POKEBS+SN* 6+X, T:NEXTX :rem 140 
IFD+1>255 THEND=@ srem 178 
IFD< 1THEND=1 srem 235 
POKEBS+SN¥* 6+5, D+1 srem 231 
RETURN srem 172 
REM srem 177 
REM *** PLAY SET *** :rem 208 
REM :rem 1704 
P=PEEK(BS+SN*6) : POKE36878,P:TM=TI srem 53 
FORX=1T0O4 : P=PEEK ( BS+SN* 6+X) : POKE36873+X,P:NEXT :rem 185 
P=PEEK (BS+SN*6+5 ) :TM=TM+P s:rem 33 
IFTM>TITHEN1535 srem 214 
RETURN s:rem 179 
REM s:rem 175 
REM *** GET SET FROM MEMORY *** s:rem 133 
REM s:rem 177 
V= PEEK (BS+SN*6) : FORX=1T04 : T=PEEK ( BS+SN* 6+X) srem 219 
IFT=@0 THENNS (X )="NN" :GOTO164@ s:rem 196 
FORY=1T036 : I FT=V(Y) THEN162@ srem 211 
NEXTY :NS$S(X)="NN":GOTO164@ srem 16 
N$(X)=STRS$(INT( (Y-1)/12)+1) :N$(X)=RIGHTS (NS(X),1) 
:rem 190 
NS$(X)=NS$ (X)+MS$(Y-INT( (Y-1)/12)*12) :rem 19 
NEXTX : D= PEEK (BS+SN*6+5 ) -1 : IFD<@THEND=255 s:rem 215 
RETURN srem 172 
REM s:rem 177 
REM *** GET HIGH AND LOW BYTE OF ADDRESS ** srem 24 
REM :rem 179 
H=INT(A/256) : L=A-H* 256 : RETURN srem 248 
REM :rem 172 
REM *** TURN OFF SOUND *** s:rem 86 


REM srem 174 
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1730 
1740 
1759 
1769 
1770 
1788 
1790 
1866 
1819 
1820 
1838 
1849 
1859 
1869 
1870 
1888 
1896 
1980 
1919 
1920 
1936 
1948 
1950 


1968 
1970 
1980 
1994 
2086 
2010 
2020 
2930 
2040 


2050 
2060 
2070 


2080 
2096 
21980 
2110 
21290 
2130 
2149 
2150 
2169 
2178 
2180 
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FORX= 36878T036877 : POKEX,@:NEXT: RETURN srem 185 
REM srem 176 
REM srem 177 
REM ****** ADD SOUND SETS ****** srem 59 
REM s:rem 179 
REM s:rem 180 
PRINT" {CLR}{2 SPACES}ADD SOUND SETS{2 DOWN}" srem 232 
PRINT"SET NUMBER";SS" {DOWN }" srem 133 
SN=SS srem 78 
REM srem 175 
REM * PRINT SET * srem 125 
REM srem 177 
GOSUB122@ srem 19 
REM srem 179 
REM * GET NEW SET * :rem 190 
REM srem 181 
PRINT" { HOME} {7 DOWN}"; srem 104 
GOSUB129@ srem 22 
REM srem 175 
REM * STORE NEW SET IN MEMORY * srem 215 
REM srem 177 
GOSUB135@ srem 23 
SS=SS+1 : FORX=0TOS5 : POKEBS+SS* 6+X, 255:NEXT: INPUT"DONE ADDI 
NG{2 SPACES}N{3 LEFT}";yYs srem 29 
IFLEFTS(YS,1)="N"THEN179@ :rem 168 
GOTO36190 srem 212 
REM srem 182 
REM srem 183 
REM ****** EDIT SOUND SETS ****** srem 140 
REM s:rem 167 
REM srem 168 
PRINT" {CLR}{3 SPACES}EDIT SOUND SETS{2 DOWN}" srem 57 


PRINT" V-VIEW/CHANGE A SET{DOWN}":PRINT" P-PLAY A SET 


{ DOWN }" 


srem 1900 


PRINT" C-PLAY COMPOSITION{ DOWN}":PRINT" S-STEP COMPOSITI 


ON { DOWN } " 


srem 207 


PRINT" I-INSERT A SET{DOWN}":PRINT" D-DELETE A SET{ DOWN} 
" srem 143 
PRINT" Q—QUIT EDIT MODE{2 DOWN}":INPUT"{4 SPACES }CHOICE" 


7;YS :YS=LEFTS(YS,1) s:rem 167 
IFYS="V"THEN21990 :rem 168 
IFYS="P"THEN244G0 srem 161 
ILFYS="C"THEN259@ srem 146 
IFYS="S"THEN27498 srem 1608 
IFYS="I"THEN29 20 s:rem 151 
IFYS="D"THEN3140 srem 142 
IFYS="Q"THEN3619 srem 158 
GOTO203@ :rem 198 
REM srem 173 
REM *** VIEW SETS *** srem 36 
REM s:rem 175 
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PRINT" {CLR}{2 SPACES}VIEW/CHANGE SETS{2 DOWN}":INPUT"SET 


NUMBER"; SN:PRINT" { DOWN}" :rem 92 
IFSN<OTHEN24 30 srem 84 
IFSN>=SSTHEN21990 s:rem 17 
REM srem 179 
REM * GET SET FROM MEMORY * :rem 216 
REM srem 172 
GOSUB158@ s:rem 23 
REM srem 174 
REM * DISPLAY SET * srem 5 
REM s:rem 176 
GOSUB1226 :rem 18 
INPUT" { DOWN }CHANGE";YS:IFLEFTS(YS,1)<>"Y"THEN219@:rem 93 
REM s:rem 17@ 
REM * GET NEW SET * srem 181 
REM zrem 172 
PRINT" {HOME}{8 DOWN}"; srem 112 
GOSUB1296 srem 22 
REM srem 175 
REM * STORE SET IN MEMORY * :rem 237 
REM srem 177 
GOSUB135@ srem 23 
GOTO2190 :rem 203 
REM :rem 171 
REM *** PLAY A SET *** srem 11 
REM :rem 173 
PRINT" {CLR}{5 SPACES}PLAY A SET{2 DOWN}" srem 179 
INPUT"SET NUMBER"; SN srem 48 
IFSN<OTHEN2630 srem 92 
IFSN>=SSTHEN244@ :rem 23 
REM :rem 178 
REM * PLAY SET * srem 41 
REM :rem 171 
GOSUB151@ srem 15 
REM :rem 173 
REM *** TURN OFF SOUND *** :rem 87 
REM srem 175 
GOSUB1730 :GOTO02449 s:rem 84 
REM srem 177 
REM *** PLAY COMPOSITION *** srem 56 
REM :rem 179 
PRINT" {CLR}{2 SPACES}PLAY COMPOSITION" srem 192 
FORX=1TO19006 :NEXT :rem 82 
FORSN=6TOSS-1 :PRINT" {HOME} {6 DOWN}SET NUMBER";SN:rem 122 
REM srem 174 
REM * PLAY SET * :rem 37 
REM s:rem 176 
GOSUB151@4 srem 204 
REM :rem 178 
REM *** TURN OFF SOUND *** srem 92 
REM :rem 188 
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2696 NEXT:GOSUB1738 s:rem 149 
2780 FORX=1TO1900 :NEXT:GOTO263@4 srem 139 
2718 REM srem 174 
2720 REM *** STEP COMPOSITION *** srem 59 
2730 REM srem 176 
2740 PRINT" {CLR}{3 SPACES}STEP COMPOSITION{2 DOWN}" :rem 227 
2750 PRINT"PRESS ANY KEY TO HEAR{DOWN}":PRINT"THE NEXT SET" 

srem 232 
2760 FORSN=8TOSS-1 :rem 107 
27708 GETAS :I1FAS=""THEN277@ srem 195 
2780 PRINT" {HOME}{8 DOWN}SET NUMBER"; SN srem 206 
2790 REM srem 182 
2800 REM * PLAY SET * srem 36 
2810 REM srem 175 
28286 GOSUB151@0 srem 19 
2830 NEXT srem 12 
2840 GETAS :IFAS=""THEN284@ srem 191 
2850 REM srem 179 
2860 REM *** TURN OFF SOUND *** srem 93 
2870 REM srem 181 
2888 GOSUB17 398 :GOTO2630 srem 85 
2898 REM srem 183 
2980 REM *** INSERT A SET *** srem 173 
2910 REM srem 176 
2920 PRINT"{CLR}{4 SPACES}INSERT A SET{2 DOWN}" srem 85 
2930 INPUT"NEW SET NUMBER";SN:IFSN<OTHEN2630 srem 231 
2940 IFSN>=SSTHEN2920 srem 28 
2958 REM srem 182 
2960 REM * DISPLAY SET * srem 11 
2970 REM srem 182 
2988 GOSUB122@ srem 24 
2998 REM srem 184 
3000 REM * GET NEW SET * s:rem 177 
3010 REM srem 168 
3020 PRINT" {HOME}{6 DOWN}"; srem 74 
3038 GOSUB129@ srem 18 
38490 REM srem 171 
3050 REM *** SET PARAMETERS FOR ML *** s:rem 8 
3860 REM srem 173 
3078 A=BS+SS*6+5 :GOSUB169@ : POKE838,L: POKE831,H srem 237 
3975 A=BS+SN*6 :GOSUB1699 : POKE8 28 , L: POKE829 ,H srem 155 
38080 SYS UP erem lll 
3881 REM srem 176 
3882 REM *** STORE NEW SET INTO MEMORY *** :rem 35 
3083 REM srem 178 
38085 GOSUB1352 srem 25 
3898 SS=SS+1l erem 177 
3100 PRINT"NEW SET INSERTED": FORX=1TO196900 :NEXT:GOTO292@ 

srem 205 
31190 REM s:rem 169 
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3120 REM *** DELETE A SET *** srem 134 
3138 REM :rem 171 
3148 PRINT"{CLR} DELETE A SET{2 DOWN}":INPUT"SET NUMBER"; SN 
srem 205 
3158 IFSN<O9THEN29030 srem 89 
3168 IFSN>=SSTHEN314@ srem 18 
3170 REM s:rem 175 
3180 REM * GET SET FROM MEMORY * srem 221 
3190 REM :rem 177 
3290 GOSUB158@ srem 19 
3210 REM srem 172 
3226 REM * DISPLAY SET * srem l 
3238 REM srem 172 
3248 GOSUB122¢0 srem 14 
3258 INPUT"OK TO DELETE";YS$:YS=LEFTS(YS,1) srem 1890 
3260 IFYS<>"Y"THEN314@2 srem 229 
3270 REM :rem 176 
3280 REM *** SET PARAMETERS FOR ML *** s:rem 13 
32990 REM srem 178 
3300 A=BS+SN* 6 :GOSUB16998 : POKE828,L: POKE829,H srem 146 
3395 A=BS+SS*6+5 :GOSUB1699 : POKE8 38, L: POKE831,H :rem 238 
3318 SYS DOWN :PRINT"SET DELETED":SS=SS-1 srem 13 
3328 FORX=1TO1909 :NEXT:GOTO314@ :rem 141 
3330 REM srem 173 
33490 REM srem 174 
3358 REM ****** SAVE MUSIC ON TAPE ****** srem 30 
3360 REM :rem 176 
3378 REM :rem 177 
3388 PRINT" {CLR}{3 SPACES}SAVE MUSIC {2 DOWN}":PRINT"NAME OF 
{SPACE}FILE:" srem 31 
3398 INPUTNS :IFNS="STOP"THEN361@4 srem 204 
3490 OPEN1,1,1,N$:PRINT#1,SS :rem 111 
3419 FORX=0TOSS : FORY=@TO5 srem 124 
3420 P=PEEK(BS+X*6+Y) :rem 200 
34308 PRINT#1,P srem 39 
3449 NEXTY,X:CLOSE1 :GOTO3619 :rem 5 
3450 REM :rem 176 
3469 REM :rem 177 
3470 REM ****** TOAD MUSIC FROM TAPE ****** srem 169 
3489 REM s:rem 179 
3498 REM :rem 180 
3588 PRINT"{CLR}{2 SPACES}LOAD MUSIC{2 DOWN}":PRINT"NAME OF F 
ILE: " srem 194 
3518 INPUTNS : IFNS="STOP"THEN361@ srem 198 
3520 OPEN1,1,0,N$:INPUT#1,SS srem 116 
3538 FORX=@TOSS:FORY=@8TO5 s:rem 127 
3546 INPUT#1,P:POKEBS+X*6+Y,P srem 13 
3558 NEXTY,X:CLOSE1 :GOTO361@4 srem 7 
3568 REM s:rem 178 
3570 REM srem 179 
3580 REM ****** MATN MENU ****** :rem 6 


145 


sound 
and Graphics 


REM s:rem 181 
REM srem 173 
PRINT" {CLR}{3 SPACES}MUSIC MAKER{DOWN}":PRINT"{6 SPACES} 
MENU { DOWN } " srem 129 
PRINT" A-ADD MUSIC SETS{DOWN}":PRINT" E-EDIT MUSIC SETS 
{ DOWN }" s:rem 24 
PRINT" S—-SAVE MUSIC{DOWN}":PRINT" L-LOAD MUSIC{DOWN}" 
srem 20 
PRINT" O-TURN MUSIC ON{DOWN}":PRINT" F-TURN MUSIC OFF 
{ DOWN }" srem 198 
PRINT" C-ERASE MUSIC{ DOWN}" :rem 17 
PRINT" Q-QUIT PROGRAM{ DOWN }" :rem 138 
INPUT" {3 SPACES } CHOICE";C$:CS=LEFTS(CS,1) srem 51 
IFCS="A"THEN179@ srem 137 
IFCS="E"THEN203@ srem 130 
IFCS="S "THEN3 380 srem 145 
IFCS="L"THEN3500 srem 133 
IFCS="O0"THEN SYS UN :GOTO3610 srem 160 
IFCS="F"THENSYS OF :GOTO361@ srem 138 
IFCS="C"THEN3790 :rem 138 
IFCS="Q"THEN377@ srem 151 
GOTO3614 srem 211 
INPUT"ARE YOU SURE";YS:IFYS="YES "THENEND :rem 47 
GOTO3614 srem 213 
INPUT"ARE YOU SURE"; YS: IFYS="YES"THEN38190 srem 38 
GOTO36198 srem 206 
SS=8 : FORX=BSTOBS+5 : POKEX , 255 :NEXT :GOTO361@4 srem l 
REM srem 177 
REM srem 178 
REM ****** DROGRAM START ****** srem 81 
REM srem 180 
REM srem 181 
REM srem 182 
REM * STORE TOP OF MEMORY VALUE * srem 118 
REM srem 184 
X=PEEK(55) : POKE9@@,X:X=PEEK(56) :POKE9@1 ,X srem 254 
REM srem 177 
REM * SET NEW TOP OF MEMORY * srem 61 
REM s:rem 179 
BS=12800 :A=BS : GOSUB169@ :BH=H: BL=L :rem 14 
POKE55, BL: POKE51, BL: POKE56, BH: POKE52, BH: CLR srem 216 
BS=12800 :MS=PEEK ( 990 ) +PEEK ( 981 ) * 256-236 srem 143 
DOWN=MS+1 63 : UP=MS+146 : UN=MS+189 :OF=MS+212:DU=69 :rem 146 
FORX=BSTOBS+5 : POKEX , 255 :NEXT: BS=BS-1 srem 126 
A=BS :GOSUB1699 : SH=H : SL=L: A=MS :GOSUB16 9@ : MH=H : ML=L: BS=BS+ 
1 srem 189 
REM srem 168 
REM * LOAD MUSIC TABLES * srem 89 
REM s:rem 170 
DIMV(36),M$(12) :FORX=1T036:READV(X) :NEXT srem 195 
FORX=1T012 : READMS(X) :NEXT srem 190 
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REM srem 173 
REM * STORE MACHINE LANGUAGE PROGRAM IN MEMORY * srem 8d 
REM srem 175 
FORX=MSTOMS+ 232 : READAS : IFLEFTS (AS,1)<"A"THENPOKEX, VAL(AS$ 
)}:GOTO 4132 s:rem 74 
IFAS="SH" THENPOKEX , SH srem 90 
IFAS="SL"THENPOKEX ,SL srem 994 
IFAS="ML" THENPOKEX, ML. srem 79 
IFAS="MH "THENPOKEX , MH s:rem 72 
IFAS="DU"THENPOKEX, DU :rem 85 
NEXTX srem 95 
FORX=1T04 :N$S(X)="NN" sNEXT srem 56 
GOTO3619 srem 205 
REM srem 175 
REM * DATA FOR MUSIC VALUES AND NOTES * srem 178 
REM srem 177 
DATA135,143,147,151,159,163,167,175,179,183,187,191,195, 
199,201,203,207,209,212 srem 131 
DATA215,217,219,221,223,225,227,228,229,231,232,233,235, 
236,237,238, 239 :rem 216 
DATAC ,C#,D,D#,E,F,F#,G,G#,A,A#,B srem 165 
REM srem 172 
REM * MACHINE LANGUAGE PROGRAM * s:rem 82 
REM s:rem 174 
DATA198, 253 ,208,36,160,0,230,251,2908,2,2390,252,177,251 
s:rem 133 
DATA2@1,255,208,25,162,4,169,0,157,10,144,202,16,259 
s:rem 24 
DATA169,SH,133,252,169,SL,133,251,169, DU srem 133 
DATA133,253,76,191,234,141,14,144,239,251,208,2,2390,252 
srem 177 
DATA177,251,141,10,144, 230,251,208,2,230,252,177,251,141 
srem 224 
DATA11,144, 2309,251,208,2,230,252,177,251,141,12,144,2390 
srem 157 
DATA251,208,2,230,252,177,251,141,13,144,239,251,298,2 
:rem 115 
DATA230,252,177,251,133,253,76,191,234 :rem 122 
REM srem 174 
REM * MOVE MUSIC SETS DOWN ROUTINE * s:rem 88 
REM :rem 176 


DATA173,60,3,133,97,173,61,3,133,98,160,6,177,97:rem 119 
DATA16@,9,145,97,230,97,208,2,230,98,165,98,205,63 


srem 217 
DATA3 , 48, 235,240, 233,165,97,205,62,3,48, 226,240,224, 96 

:rem 153 
REM srem 1808 
REM * MOVE MUSIC SETS UP * srem 156 
REM srem 173 


DATA173,62,3,133,97,173,63,3,133,98,168,8,177,97:rem 114 
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4425 DATA169,6,145,97,165,98,295,61,3,208,8,165,97,205 


s:rem 175 
4439 DATA690,3,208,1,96,198,97,16,2,198,98,208,225,248:rem 123 
4449 DATA223 s:rem 125 
4458 REM :rem 177 
4460 REM * TURN MUSIC ON * srem 199 
4478 REM :rem 179 
4475 DATA169,DU,133,253,169,SL,133,251,169,SH,133,252 :rem 21 
4489 DATA169,ML,141,20,3,169,MH,141,21,3,96 srem 214 
4499 REM srem 181 
4508 REM * TURN MUSIC OFF * srem 166 
4518 REM s:rem 174 
4526 DATA169,191,141,20,3,169,234,141,21,3 s:rem 608 
4538 DATA162,4,169,9,157,10,144,202,16,258,96 srem 211 
Program 2. Music Player 
For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,”” Appendix C. 
196 REM srem 117 
118 REM :rem 118 
120 REM *****{2 SPACES}MUSIC PLAYER{2 SPACES }***** srem 105 
138 REM :rem 120 
1480 REM s:rem 121 
158 REM * STORE TOP OF MEMORY VALUE * s:rem 57 
168 REM srem 123 
178 X=PEEK(55) : POKE90@ ,X :X=PEEK(56) :POKE9@1,X s:rem 2062 
188 REM s:rem 125 
198 REM * SET NEW TOP OF MEMORY * s:rem 9 
260 REM srem 118 
218 BS=128900 :BH=INT(BS/256) : BL=BS-BH* 256 srem 22 
228 POKE55,BL:POKE51,BL:POKE56,BH: POKE52,BH:CLR s:rem 155 
230 BS=12800 : MS=PEEK( 990)+PEEK( 981 )*256-158 s:rem 77 
248 UN=MS+193 :OF=MS+126 :DU=69 :rem 187 
258 BS=BS-1 srem 92 
268 SH=INT(BS/256) :SL=BS—SH* 256 :MH=INT(MS/256) :ML=MS—MH* 256 :B 
S=BS+1 :rem 49 
278 REM :rem 125 
288 REM * STORE MACHINE LANGUAGE PROGRAM IN MEMORY * :rem 32 
290 REM :rem 127 
308 FORX=MSTOMS+146 : READAS : IFLEFTS (A$,1)<"A"THENPOKEX,VAL(AS ) 
:GOTO 369 srem 230 
310 IFAS="SH"THENPOKEX, SH :rem 33 
328 IFAS="SL"THENPOKEX,SL :rem 42 
338 IFAS="ML"THENPOKEX, ML :rem 31 
348 IFAS="MH"THENPOKEX , MH srem 24 
350 IFAS="DU"THENPOKEX, DU s:rem 33 
360 NEXTX srem 48 
378 REM srem 126 
388 REM * MACHINE LANGUAGE PROGRAM * :rem 36 
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REM s:rem 128 
DATA198,253,208,36,160,0,230,251,2908,2,230,252,177,251 
srem 78 
DATA2@1,255,2808,25,162,4,169,8,157,10,144,202,16,25@8 
s:rem 225 
DATA169,SH,133,252,169,SL,133,251,169, DU srem 78 
DATA133,253,76,191,234,141,14,144,2390,251,208,2,230,252 
s:rem 122 
DATA177,251,141,10,144, 230,251,208,2,230,252,177,251,141 
:rem 169 
DATA11,144,230,251,208,2,230,252,177,251,141,12,144, 232 
srem lll 
DATA251,208,2,230,252,177,251,141,13,144, 238,251, 288,2 
s:rem 69 
DATA2390,252,177,251,133,253,76,191,234 srem 76 
REM srem 128 
REM * TURN MUSIC ON * srem 628 
REM srem 121 
DATA169, DU,133,253,169,SL,133,251,169,SH,133,252 :rem 215 
DATA169,ML,141,290,3,169,MH,141,21,3,96 srem 157 
REM s:rem 124 
REM * TURN MUSIC OFF * s:rem 118 
REM :rem 126 
DATA169,191,141,20,3,169,234,141,21,3 s:rem 12 
DATA162,4,169,08,157,10,144, 202,16,250,96 srem 163 
REM s:rem 122 
REM * LOAD MUSIC FROM FILE * srem 198 
REM s:rem 127 
INPUT"FILE NAME";NS s:rem 89 
OPEN1,1,98,NS:INPUT#1,SS srem 66 
FORX=0 TOSS: FORY=8TO5 s:rem 77 
INPUT#1,P:POKEBS+X*6+Y,P srem 219 
NEXTY ,X:CLOSE1 s:rem 152 
REM srem 129 
REM * PLACE MUSIC DATA HERE * srem 250 
REM srem 131 
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| Write-On 


This is a word processor written in BASIC for the VIC with a Datassette and 
a serial printer (directions for adapting the program to print on a Com- 
modore printer are included below). It should adapt easily to almost any 
home computer since the only command unique to VIC-20 is the “Bell” in 
lines 90 and 91. This program is not well-suited to an unexpanded VIC be- 
cause available memory accommodates only about a dozen lines of text. 

In addition to providing for typing text into memory and sending it to a 
serial printer, the program allows the user to relocate blocks of text, edit 
lines, and have the computer find and change specific words or phrases. 

After the initial LOAD and RUN commands, the program goes first to a 
SET MARGIN routine to make sure the user established a line length. When 
this has been done, a one-line menu appears: 


A, C, D, E, F, I, L, M, P, Q, S 


Each letter represents one of the program functions: ADD, CHANGE, DE- 
LETE, EDIT, and so on. A function is selected by pressing the key 
corresponding to the desired function. When this is done, the name of the 
function appears and the program awaits data from the keyboard relating to 
the function. 

ADD. Used for initial entry of text or for adding lines to text already en- 
tered. When A is selected from the menu, the program is immediately ready 
to accept the next line of text. The computer should be in the uppercase and 
lowercase mode if you want the output to be in that form. The lines will be 
numbered sequentially as they are entered, and a bell will signal when only 
five spaces remain on a line. More than one line on the screen may be 
needed to display one line of text. 

The @ key provides a five-space tab whenever it is used, and the RE- 
TURN key terminates a line. If the RETURN is used on an empty line, then 
the ADD function ceases and the menu reappears. The DELETE key func- 
tions normally in the ADD mode, but the CLR/HOME, INSERT, and cursor 
movement keys should not be used. An interesting peculiarity occurs when 
quotation marks are used. Any letter enclosed in quotes will be preceded by 
two graphics characters. These characters are not included in the line length, 
and they will not be listed or printed. They may be ignored. 

CHANGE. Directs the program to search through a specified range of 
lines of text and change wrong word to right one wherever it occurs. The 
range must be specified in this format: A, B RETURN, where A is the lowest 
numbered line of the range and B is the highest numbered line. The desired 
change must be in this format: / wrong word / right one / RETURN. Wrong 
word can be a letter, a word, or a phrase, and right one can be any of these 
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or nothing (for example, / you know / / RETURN would result in the dele- 
tion of the phrase you know wherever it appeared). It may take several sec- 
onds for this operation to be completed, but the menu will reappear when it 
has finished. It will be necessary to LIST the text in order to see the result of 
CHANGE. Almost any letter or symbol may be used in the CHANGE format 
in place of the /. The only requirement is that the character used must not 
appear in either the field to be changed or the field which replaces it. 

DELETE. Causes a range of lines of text to be deleted. The range must 
be specified in this format: A, B RETURN, where A is the lowest numbered 
line to be deleted and B is the highest numbered line. If only one line is to 
be deleted, then A and B must be the same value. Failure to input two line 
numbers will result in another prompt (with two question marks). Input the 
second number and RETURN to proceed. The menu will reappear when DE- 
LETE is complete. 

EDIT. Recalls a specific line of text for editing. The number of the line 
must be specified in this format: A RETURN. This results in the display of 
the line to be edited along with a workspace for the editing. When the 
cursor-right key is pressed, the line to be edited is copied into the workspace 
one character at a time. A character to be changed is typed in from the key- 
board at the appropriate place on the line. A character to be deleted is 
copied, then deleted using the INST/DEL key. The line may then be com- 
pleted by continuing to copy. A character (or a space) may be inserted by 
copying over to the appropriate place, pressing the up arrow (not cursor up), 
and then typing the character to be inserted. The up arrow must be used 
before each character to be inserted. RETURN terminates both the line and 
the EDIT function bringing back the menu. 

FILER. Saves text or loads text from tape or disk into the program. 
LOAD or SAVE is specified by keying L or S. A filename must then be speci- 
fied with a name which does not exceed 12 characters. When saving is com- 
plete, the menu returns. Loaded text always starts with line 1. Disk users 
should change OPEN1,1,0,L$ in line 41 to OPEN1,8,2,L$. Also change 
OPEN1,1,1,L$ in line 43 to OPEN1,8,2,L$+°,S,W”. 

INSERT. Provides for the insertion of one or more lines of new text be- 
tween any two lines of existing text. The number of the line of existing text 
to be preceded by the new text is specified in this format: A RETURN. This 
results in the creation of a work area with a new line number. When the 
new line has been typed in, press the RETURN key to prepare for another 
new line. Pressing RETURN on an empty line terminates INSERT and re- 
stores the menu. 

LIST. Displays the text on the screen. A range of lines to be displayed 
may be specified in this format: A, B RETURN, where A is the lowest num- 
bered line of the range, and B is the highest numbered line. If you press RE- 
TURN without specifying a range, then all lines will scroll by and the menu 
returns. 
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MOVE. Relocates a block of text. The range of lines in the block and the 
destination must be specified in this format: A, B, C RETURN, where A is 
the lowest numbered line of the range, B is the highest numbered line, and 
C is the line of text which will be preceded by the block when the move is 
complete. If the block is to be at the beginning of the text, C is specified as 1. 
If the block is to be at the end of the text, C is specified as one number 
higher than the last numbered line of text. The menu returns when the move 
is complete. 

PRINT. Sends a range of lines of text to the printer without printing the 
line numbers. The range of lines may be specified in this format: A, B, RE- 
TURN, where A is the lowest numbered line in the range and B is the high- 
est numbered line. If RETURN is pressed without specifying a range, then all 
lines will be printed. The menu returns when printing is complete. 

QUIT. Terminates ‘‘Write-On” and displays the space remaining in 
memory for lines of text. This is the only exception to the general rule that 
pressing RETURN restores the menu. The program may be restarted by the 
command CONT or RUN. The RUN command will erase all text in memory. 

SET MARGIN. Provides for specifying line length in this format: A RE- 
TURN. Margin will be evenly divided on either side of the page. Pressing 
RETURN without specifying the line length will default to a line length set- 
ting of 60 characters. The menu returns when RETURN is pressed. 


Tailoring the Program 
The program may be readily modified to meet specific needs. Here are the 
locations of the various functions: 


1 Initialization 

2-4 Input Subroutines 
6-8 Menu 

10,11 ADD 


15-23 CHANGE 
25,26 DELETE 


30-35 EDIT 

40-49 FILER 

55-57 INSERT 

60 LIST 

65-69 MOVE 

70-76 PRINT 

80 QUIT 

85 SET MARGIN 


90-95 Build Lines 


I designed the program to operate with my IDS Bright-Writer ASCI- 
compatible printer. If you have a Commodore printer, you may simplify the 
PRINT functions by deleting lines 71, 73, 74, changing L$ to T$(J) in line 75, 


155 


Applications 


and shortening line 70 past the FOR I = L to H statement. You may also de- 
lete the OPEN 9,2,3 CHR$(6) from line 1, add OPEN 9,4 to line 70, and add 
CLOSE 9 to line 76 before GOTO 6. 

Lines 1-11, 60, and 90-95 are the only lines absolutely necessary for the 
program to run. The others are options which you may include as you need 
them, modify as necessary, or replace with more powerful functions which 
you may design. 


Write-On 
For mistake-proof program entry, be sure to use “The Automatic Proofreader,”’ Appendix C. 


Some lines of this program require keywords to be abbreviated so that they will not exceed the four-screen-line 
limit. See Appendix B. 


1 OPENY,2,3,CHRS (6) :DIMTS$( 38) :DS=CHRS (20) :RS=CHRS (18) :OS=CHRS 


(146) :Z=1 :M=69 :GOTO85 srem 1907 
2 GETAS :ON-(AS="")GOTO2 :RETURN srem 55 
3 L=@:H=0: INPUTL,H:ON~(L+H=@)GOTO6 : RETURN s:rem lll 
4 L=@:INPUTL:ON-—(L<1lORL>Z )GOTO6 : RETURN s:rem 31 
6 P=36875:ES=CHRS(255) :XS=CHR$(157) sPRINTRS"A,C,D,E,F,1,L,M,P 
,Q2,S"0S :GOSUB2 srem 65 

7 J=@:FORI=1TO11 :I1FAS=MIDS("ACDEFILMPQS",1I,1)THENJ=I:I=1l 
s:rem 229 
8 NEXTI :ON-(J=@) GOTO6 :ONJGOTO19,15,25,30,40,55,60,65, 78, 80,85 
srem 185 
10 PRINTKS;:RS"ADD"OS :PRINT srem 85 
ll PRINTZ">"; :GOSUB9@ :ON-( LEN(LS )=@) GOTO6 : TS (Z )=LS$ :Z=Z+1 :GOTO 
ll :rem 96 

15 PRINTRS"CHANGE"OS ; :GOSUB3 :GOSUB9@ :N=LEN(LS) : IFN<4THENLS5 
srem 146 
16 AS=LEFTS(LS$,1) :IFRIGHTS(LS$,1)<>ASTHENL5 s:rem 115 
17 J=@:FORI=2TON-1 : IFMIDS(LS$,1I,1)=ASTHENJ=I :rem 66 
18 NEXTI :ON-(J=8ORJ=2)GOTO15 :AS=MID$(LS,2,J-2) : IFJ+1=NTHENSS= 
"":GOTO26 :rem 186 
19 SS=MIDS(LS$,J+1,N-J-1) srem 254 
20 A=LEN(AS) :FORI=LTOH: B=LEN(TS(I1)) :LS="":S=1 :FORJ=1TOB-A+1 :I 
FMIDS(TS(1I),J,A)<>ASTHEN22 srem 123 
21 LS=LS+MIDS$(TS(1I),S,J-S)+SS :S=J+A:J=S-1 srem 21 
22 NEXTJ : IFS<>1THENLS=L$+RIGHTS(TS(I),B-S+1):T$(1I)=L$:rem 115 
23 NEXTI:GOTO6 srem 159 
25 PRINTRS"DELETE"OS; :GOSUB3 : I FH=Z-1 THENZ=L:GOTO6 srem 189 

26 J=H-L+1 :FORI=LTOZ—-J-1:T$(1I)=TS(I+J7) sNEXTIL:Z=Z-J :GOTO6 

:rem 238 
36 PRINTRS "EDIT"OS; :GOSUB4:PRINT:PRINTL">"TS(L) :PRINTL">"::LS 
=""sT=] srem 201 
31 GOSUB2 : IFAS=C$THENTS(L)=LS$ :PRINT:GOTO6 s:rem 73 


32 ON-(AS<>CHR$( 29) )GOTO33:AS=MIDS(TS$(L),1I,1):GOTO35 :rem 168 
33 IFAS=D$ THENLS$=LEFTS$(LS$,LEN(LS$)-1) :PRINTAS;:GOTO31 :rem 83 
34 IFAS=CHRS (94) THEN: I=I-1 :GOTO31 :rem 196 
35 I=I+l:PRINTAS; :LS=LS+AS :GOTO31 s:rem 184 
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PRINTKS;RS"FILER"OS" L OR S ?";:GOSUB2:PRINTAS :SS=AS :IFSS$< 


>"L"ANDSS<>"S"THEN6 srem 173 
PRINT "NAME ?": sGOSUB9@ :N=LEN(LS) :ON—(N<1ORN>12)GOTO41 : IFSS= 
"L"THENOPEN1,1,9,L$:Z=0 :GOTO46 srem 1905 
IFZ=1THENPRINT"NO FILE":GOTO6 s:rem 35 
OPEN1,1,1,L$:FORI=1TOZ-1 : FORJ=1TOLEN(TS$(1I)):PRINT#1,MIDS$(T 
$(1I),J3,1);:NEXTJ srem 138 
PRINT#1,ES; s:NEXTI:CLOSE1 :PRINTLS" SAVED" :GOTO6 srem 83 
Z=Z+1:T$(Z)="" srem 149 
GET#1,AS :ON-( ST=64)GOTO49 : IFST<>@THENPRINT"LOAD ERROR"GOTO 
6 srem 172 
ON- (AS=ES )GOTO46 : TS (Z )=TS (Z)+AS :GOTO47 srem 96 
CLOSE1:PRINTLS" LOADED" :Z=Z+1 :GOTO6 srem 104 
PRINTRS "INSERT"OS;: :GOSUB4:PRINTL" >"; srem 242 
GOSU B98 : IFLEN(LS ) <1THEN6 srem 143 
Z=Z+1:FORI=ZTOLSTEP-1 :T$(1I)=TS$(I-1) :NEXTI:TS(L)=L$:L=L+1:P 
RINTL">": sGOTO56 srem 19 
L=1 :H=Z-1:PRINTKS;RS"LIST"OS; s INPUTL,H: FORI=LTOH:PRINTI">" 
TS(1) sNEXTI:GOTO6 srem 35 
PRINTRS "MOVE"OS; : INPUTL,H,A:B=A-1 :J=H-L+1:IF(FRE(1)/M<J)TH 
ENPRINT"NO ROOM":GOTO6 srem 194 
N=Z-1 : FORI=1TOJ :TS$(N+I1)=TS$(L-1+1) :NEXT s:rem 214 
FORI=LTON-J:TS(I)=TS(I+J) sNEXT:ON—(B=N) GOTO69 : I FB> LTHENB=B 
-J srem 221 
FORI=NTOA+JSTEP~1 :TS$(I)=TS(I-J) sNEXT: FORI=1TOJ:TS (B+1)=TS ( 
N+1) :NEXT:GOTO6 s:rem 15 
FORI=1TOJ :T$ (N-J+1I)=TS(N+1I) sNEXT:GOTO6 :rem 32 
L=]1 :H=Z-1 :PRINTRS"PRINT"OS; : INPUTL, H: FORI=LTOH: LS=""s:FORJ= 
1TO99 :AS=MIDS(TS(1I),J,1) srem 229 
ON-(J>LEN(T$(I)))GOTO75 :N=ASC (A$) : IF64<NANDN<91 THENAS=CHRS 
(N+32) sGOTO74 srem 167 
IF192<NANDN< 219 THENAS=CHRS$ (N-128) srem 81 
LS=LS+AS sNEXTJ srem 219 
CMD9 :PRINTSPC(E)LS :NEXTI srem 238 
ON-(ST=@ AND ( PEEK( 37151) AND64)=1)GOTO76:PRINT#9 :GOTO6 
s:rem 84 
PRINTKS RS"GOODBY"OS :PRINTINT(FRE(8)/M)"LINES FREE":STOP:GO 
TO6 :rem 68 
KS=CHRS (147) :PRINTKS; RS"MARGIN"OS; : CS=CHRS$(13) : INPUTM: E=(8 
@-M)/2:GOTO6 :rem 66 
LS=""s:IF(FRE(1)/M<2) THENPRINT"NO ROOM" :GOTO6 srem 64 
PRINTCHRS (166) ; sGOSUB2 : IFAS=CSTHENPRINTXS;:"  ":RETURN 
srem 176 
IFAS="@"THENAS="{5 SPACES }" srem 53 
PRINTXS ; AS; : IFAS=D$ THENLS$S=LEFTS(LS$,LEN(LS)-1) :GOTO91 
srem 22 
IFLEN( LS )=M-5 THENPOKEP , 238: FORI=15TOLSTEP-1 : POKEP+3 ,1:NEXT 
srem 127 
POKEP ,@: LS=LS+AS :GOTO9L srem 13 
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vic Marquee 


The “VIC Marquee” will run on an unexpanded VIC and provides a moving 
billboard message across the top of the screen. The beauty of this marquee 
utility is that the moving display is generated as a wedge during the screen 
interrupt processing. This allows the main user program to be performing 
one task while the marquee is generated essentially as a background opera- 
tion. The demonstration program combines simple animation with a marquee 
message. 

The marquee subroutine is a machine language program which is 
POKEd into the cassette buffer using a BASIC loader. 


Storing Strings 
The VIC uses two techniques for storing string information. Strings which 
are defined as constants either by DATA statements or by declarations such 
as A$=“’MESSAGE” are saved in the program area. However, strings which 
are used in or formed by operations such as concatenation are saved in the 
string storage area. The start of this string area is stored in low byte/high 
byte form at locations 51 and 52, respectively. This method of string storage 
permits the user to create messages and generate marquees with a simple 
three-step procedure: 


1. Form the message string by concatenation. It must terminate with a 
CHR$(0). 

2. Provide the location of the message to the marquee program by transfer- 
ring the data in locations 51 and 52 to locations 1011 and 1009, 
respectively. 

3. Initiate the marquee by a SYS 1008. 


Marquee Demo 
The program ‘“Marquee Demo” employs this technique to create a marquee 
display while an animated stick figure performs jumping jacks. The next 
paragraph discusses key elements of the program. 

Line 5 clears the screen at program initialization. Line 11 sets the color 
memory of the first screen row to blue. In order for the marquee to be vis- 
ible, it is necessary that the color be changed from white. Lines 21-24 set 
string data which will be used in composing the messages. As discussed pre- 
viously, these strings are stored in the program area. Line 30 calls the sub- 
routine which reads the machine language marquee program and POKEs it 
into memory. Line 41 creates the marquee message M$ by concatenation. 
The statement X=FRE (0) is included to make the VIC perform string gar- 
bage collection. This operation removes A$ and B$ from the string storage 
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area reducing memory usage. Line 42 calls the subroutine which POKEs the 
string location pointer into the marquee memory. Line 50 starts the marquee, 
while line 60 calls the subroutine which has an animated figure perform 50 
jumping jacks. Line 61 performs a HOME so that when the jumping figure 
routine is called again, the animated figure will be properly positioned. Lines 
71-90 duplicate the functions of lines 41-60. 

This program scrolls your message across the top of the screen during 
the IRQ interrupt, the time during which your computer is processing key- 
board input and other necessary tasks. The IRQ interrupt normally occurs 
every 1/60 second. Marquee adds a routine to be processed during this inter- 
rupt, independent of the BASIC program. In fact, if you press RUN/STOP, 
your message will continue to scroll across the screen while you modify the 
program. Adding a routine to the IRQ also causes the length of time needed 
to process the IRQ to be increased slightly. 

This increase in time for IRQ processing can cause a slight increase in 
the execution time of a program. However, this routine will slow your BASIC 
program down by less than 2/10 second when using the unexpanded VIC. 

To test this yourself, enter 


99 PRINT "THIS IS THE END.” 


Then run the program while measuring the length of time from typing RUN 
until ‘THIS IS THE END.” appears on the screen. Then delete lines 50 and 
80, which call the Marquee routine, and time the program again. It may be 
necessary to make several test runs to obtain accurate timing. 

The internal timer (TI$) can’t be used, as it is updated during the IRQ 
interrupt. For more information on using interrupts in your programs, see 
Programming the VIC, by Raeto Collin West, from Compute! Books. 


Marquee Demo 
For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


Some lines of this program require keywords to be abbreviated so that they will not exceed the four-screen-line 
limit. See Appendix B. 


5 PRINT" {CLR}" srem 153 
18 REM COLOR FOR MARQUEE :rem 187 
ll FORI=@TO21 :POKE38400+1,6:NEXTI srem 5 
28 REM MARQUEE MESSAGE STORAGE srem 112 
21 AS="THIS MESSAGE IS DISPLAYED WITHOUT REALLY SLOWING DOWN 
{SPACE}THE JUMPING MAN VERY MUCH." srem 145 
22 BS="{2 SPACES}THIS TECHNIQUE CAN BE USED IN GAMES OR VARIO 
US READING EXERCISES." :rem 84 
23 CS="ANY SORT OF MESSAGE CAN BE PRINTED AS LONG AS THE MESS 
AGE IS LESS THAN 255" :rem 94 
24 DS=" CHARACTERS, INCLUDING THE CHR$(@) AT THE END OF THE M 
ESSAGE. "™ srem 81 
308 GOSUB898:REM MARQUEE LOADER srem 96 
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REM SET-UP FIRST MARQUEE MESSAGE 
MS=AS+BS+CHRS(@) :X=FRE(@) 
GOSUB28082 
SYS1@088:REM STARTS MARQUEE 
GOSUB29@:REM JUMPING MAN 
PRINT" {HOME }" 
REM SET-UP SECOND MARQUEE MESSAGE 
MS=CS+DS$+CHRS (@) :X=FRE(@) 
GOSUB289@ 
SYS1908:REM STARTS MARQUEE 
GOSUB2@@:REM JUMPING MAN 
END 
REM THIS PROGRAM IS A JUMPING MAN 
PRINT: PRINT: PRINT" {RED}" 
FORM=1TO5@ 
PRINT"{9 SPACES }MWN{2 SPACES}" 
PRINT"{1@ SPACES}K+3{3 SPACES}" 
PRINT"{9 SPACES}N M{2 SPACES}" 
FORT=1 T0300 :NEXTT 
PRINT" {4 UP}" 
PRINT"{18 SPACES}w{3 SPACES}" 
PRINT" {9 SPACES}NK+3M{2 SPACES}" 
PRINT"{1@ SPACES}K2 G}{2 SPACES}" 
FORT=1 T0300 :NEXTT 
PRINT"{4 UP}" 
NEXTM 
PRINT" {BLU} {4 DOWN}" 
RETURN 
REM MARQUEE BASIC LOADER 
FORAD=864T01915:READ D:POKEAD, D:NEXTAD 
DATA22,8,15,191,234,7 
DATA15, 22,168,1,185,@ 
DATA30,153,255,29, 200,204 
DATA96 ,3, 208, 244, 32,161 
DATA3,205,97,3,248,15 
DATA192,255,240,11,200,14@ 
DATA1@1,3,172,96,3,153 
DATA255, 29,96,172, 96, 3 
DATA169,32,153,255, 29,238 
DATA163,3,173,193,3,205 
DATA96 ,3,176,48,96,172 


938 DATA1@1,3,177,8,41,191 


DATA96,141,0,90,142,1 
DATAS, 169,8,141,193,3 
DATA141,1901,3,173,29,3 


954 DATA141,99,3,173,21,3 
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DATA141,108,3,120,169,223 
DATA141,20,3,169,3,141 
DATA21,3,88,96,120,173 
DATA99 ,3,141,20,3,173 


srem 163 
srem 227 
srem 168 
srem 60 
srem 140 
srem 75 
srem 218 
srem 234 
:rem 171 
:rem 63 
s:rem 143 
srem 104 
srem 153 
srem 18 
s:rem 61 
s:rem 219 
s:rem 1l 
srem 5 
srem 65 
srem 175 
srem 62 
:rem 173 
srem 178 
srem 72 
:rem 173 
srem 41 
srem 205 
s:rem 126 
s:rem 165 
s:rem 68 
srem 253 
srem 245 
s:rem 198 
srem 197 
:rem 7 
:rem 242 
srem 41 
s:rem 71 
srem 212 
s:rem 88 
srem 74 
srem 38 
srem 197 
srem 242 
srem 38 
srem 4 
srem 185 
s:rem 47 
s:rem 59 
:rem 9 


984 DATA1@9,3,141,21,3,88 
998 DATA96, 206,182,3,16,9 
996 DATA32,194,3,173,98,3 


18962 
1988 
1014 
1816 
2080 
2838 
2040 
2060 


DATA141,192,3,198,99,3 
DATA162,3,169,62,32,169 

DATA3 , 96 

RETURN 

REM MARQUEE MESSAGE LOCATION GENERATOR 
POKE19@9 , PEEK (52) 

POKE1@11,PEEK(51) 

RETURN 
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:rem 


251 


srem 5 
srem 10 
srem 83 


:rem 
;s rem 
; rem 
: rem 
:rem 
srem 
: rem 


152 
174 
168 
187 
199 
192 
168 


161 


Doug 
Smoak 


Message Board 


With ‘Message Board” and an unexpanded VIC, you'll be able to create mes- 
sages of up to 212 characters that will scroll across the top of the screen. Since 
Message Board is driven by the interrupt routine, it can run the message in- 
dependently of any other program or programming that may be going on. 

When you run this program, you will be asked to give a stop code that 
will signal the end of your message entry and start the display. You should 
then carefully enter your message and the stop code. You can delete and 
backspace with the INST/DEL key while entering the message. If you have 
done everything right up to this point, the screen will clear, a READY 
prompt will appear, a blinking cursor will show on the screen, and your 
message should be “marching” across the top of the screen. If you have all 
of these things including asterisks (*) before and after your message, then 
you have done it all correctly. 

If, instead, you have a VIC that is acting peculiarly, you probably have 
an error in the DATA statements that causes a problem in the machine lan- 
guage routine. Of course, you should always save a program that you have 
just typed in before you run it. Then you can recover from a crashed com- 
puter by powering down and then reloading to hunt for errors. The most 
likely reason for a crash or malfunction in the program would be incorrect 
DATA statements. Check them closely. 

On the other hand, if the program has worked, you can now either type 
NEW and go on with other things or rerun and enter a new message. Either 
way, the old message will continue to move across the screen. You can ac- 
tually watch it change as you enter the new message. But it will not be com- 
plete until you enter the stop code. 

Hitting RUN/STOP-RESTORE will stop the message, but won’t get rid 
of the machine language routine. It is protected along with your message in 
the top 335 bytes of RAM. To restart the message, just type SYS 7345 and 
press RETURN. 

Programs which cause the screen to scroll may sometimes cause strange 
things to happen to the message. Furthermore, other programs that use the 
interrupt routine will cause problems. The message will also pause after a 
LIST or a STOP during another program’s execution, but it has always 
started back after any of these pauses. 

One more comment about problems that you may have entering the 
program: Be very sure to get lines 4, 12, and 13 right since the success of 
entering your message depends upon these lines. 
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For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


2 POKE56,28:POKE55,176:REM ** MEMORY POKES!! ** srem 98 
3 FORH=7345T0O7419 : READA: POKEH, A:NEXT srem 24 
4 I=7424:D=128 :DEFFNA(K)=(KANDD) /20R( KAND63 ) -( K> DANDK<1930RK< 
32O0RK=95)*D :rem 249 
5 DN$="{HOME}{21 DOWN}":MS="{CLR}{RVS}{RED} ** MESSAGE 
{2 SPACES}BOARD ** {OFF} {BLU}" srem 151 
6 PRINTMS :GOSUB18 s:rem 87 
7 PRINTMS"{DOWN}ENTER A CHARACTER TO{2 SPACES}{DOWN}BE USED A 
S AN END OF{2 SPACES}{DOWN]}MESSAGE CODE. NOT * |" s:rem 188 
8 INPUTSTS : IFSTS="*"THEN7 srem 56 
9 FORJK=ITOI+22 :POKEJK,17@ :NEXT: I[=I+22 srem 137 
18 PRINTM$S"{DOWN}STOP CODE IS{SHIFT-SPACE}"STS:PRINT" { DOWN]EN 
TER MESSAGE" srem 187 
11 GETNS :ON-(NS="")GOTO11 : IFNS=STS$THEN15 srem 111 
12 IFNS="{DEL}"THENPRINTNS"{RVS} {OFF} {2 LEFT}"+:M=M-1:GOTOI1 
l srem 200 
13 PRINTNS"{RVS} {OFF} {LEFT}"; :POKEI+M, FNA(ASC (NS) )OR128 :M=M+ 
1 : IFM=212 THEN17 s:rem 97 
14 GOTO11 srem @ 
15 FORJK=MTOM+22 : POKEI+JK,17@:NEXT srem 154 
16 POKE® ,M+22 :SYS7345:PRINT" {CLR} {RED} {RVS}{22 SPACES} {OFF} 
{BLU}":END srem 104 
17 PRINT"MESSAGE TOO LONG! ":SYS7345:END srem 158 
18 PRINTDN$"{4 SPACES}PRESS{2 SPACES}ANY KEY":GETAS :ON-(AS="" 
)GOTO18 : RETURN srem 196 
19 DATA129,169,3,16@,22,153,255,149,136,192,8,208, 248, 234 
srem 43 
20 DATA169,213,141,28,3,169,28,141,21,3,169,8,133,255,133,1,1 
69,29,133,2,88,96,230,255 srem 182 
21 DATA165,255,281,19,208,28,160,8,177,1,153,8, 30,200,192, 22, 
2808 ,246,238,1,165,1,197 srem 52 


22 DATAG,298,4,169,0,133,1,169,0,133,255,76,191,234 :rem 244 
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strike Three 


“Strike Three’ is, as you have probably guessed, a baseball game for the un- 
expanded VIC-20. This program will also run with a 3K expander. However, 
it will not run with any other memory expansions unless some modifications 
are made to all variables which reference a screen address. There are many 
of these variables, but they should not be hard to find. If you do not want to 
make these changes, just remove your expander (8K or 16K). 

If you have an unexpanded VIC, type in the following line instead of 
lines 82-105: 


82 GOTO 118 


Also, you can delete line 57 if you still do not have enough memory on the 
standard VIC. If you do have a 3K expander, just type in the entire listing as 
shown. 


Playing Strike Three 

Once the program is run, a baseball diamond will appear on the screen. The 
usual baseball indicators, balls, strikes, and so forth, are shown at the bottom 
of the screen. SC1 stands for the first player’s score, while SC2 is for player 
2. You'll also notice another indicator displayed as RUNS. This category 
continuously shows the number of runs being scored in an inning. When a 
player finishes his or her half of the inning, RUNS will revert back to zero 
and start counting again for the other half of the inning. 

Players choose who starts at bat. The player who pitches will use the 
period, comma, and slash keys: 


KEY Pitch 
curve 

; change up 

/ straight 


When selecting a pitch, you may have to hit the key twice. The execution of 
the game may sometimes run a little slower than your selection. 

After the pitch, the player at bat will use the space bar to swing the bat. 
If the batter misses the ball or lets it go by the plate with no swing, it is 
counted a strike. If the batter lets the ball go by on a curve pitch, it is 
counted a ball. Naturally, when any of these conditions exist, the indicators 
at the bottom will be updated. If the player hits the ball, you will see it go 
across the field to a somewhat random location. 

As the ball is hit, the player who is pitching takes over. He or she will 
use the period key to move the fielder (the ball characters) right and the 
comma key to move the fielder left. 
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Because of the interaction between pitching and hitting, both players 
should hit their keys with a sort of tap. In other words, don’t hold a key down 
as this could interfere with the other player. There are two exceptions to this 
rule: when a player is moving fielders and when a player is throwing the 
ball from the outfield. (The second exception applies only to the 3K ex- 
panded version of the game.) 

As you are moving fielders, try to intercept the ball that has been hit. If 
you do intercept it, your fielder will turn red and you will have one out on 
the opposing player. If the ball is not caught, then it will turn red, either on 
the field or on the screen border, and the opposing player will advance to 
first base. Any other players already on base will also advance (this routine 
is also executed if a batter walks (takes four balls). 


Expanded Version 
Since we have a little extra memory in an expanded VIC, I’ve included a few 
extra features. As mentioned above, the listing as shown is the expanded 
version. Anyone with a standard VIC should delete lines 82-105 and insert a 
new line 82. The instructions for the ‘3K added’”’ game are the same as for 
the other version except that the routine from 82 to 105 adds an extra feature 
to the game. 

The period and comma keys are used to select a pitch, move fielders, 
and throw the ball. In the other version, you could not throw the ball. Here’s 
how it works: When the ball is hit, the pitcher tries to move the fielders to 
intercept it. If the pitcher succeeds, the fielder turns red and an out is 
registered. 

Now there is a slight time delay (this delay can be changed by changing 
the value of TI$). If the hitter does not have any players on base, just wait 
out the delay, and the routine between 82 and 105 is not used. If the hitter 
does have players on base, then the player at bat can still wait out the delay 
or can try to advance the players one base. This is done by pressing the 
space bar (don’t hold it down). After this is done, the ball will leave the 
fielder who has caught it and will begin to move across the field. Again, this 
movement is controlled by the pitcher with the period and comma keys. As 
the ball moves, the pitcher should try to guide it to second, third, or home 
base. If it hits one of these three bases, the word OUT appears on the screen, 
and the player who would have made it to that base disappears. 

I should also mention that this routine executes only if the fielder that 
caught the ball is an outfielder, not an infielder. Naturally, in real baseball, 
no one tries to advance on an infield fly. 
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For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 
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CL=397 28 :S3=36876 :S4=36877 :S5=36878 
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srem 31 


Jl=1:J2=-1 :J3=23 :J4=21 :01=7772 :02=7734:03=7784 :OT=9 : RN=9 :GO 


TO39 srem 250 
SS=9 :BA=9 : POKES3 , 210 srem 29 
POKEBL, 32: C=8 : FORT=1TO7 srem 420 
FORX=1 TOR :rem 214 
BL=BL+D1 srem 46 
IFPEEK (197 )=37THENO2=02+J1 :01=01-J4 srem 185 
IFPEEK(197)=37THENI1=I1-J4 srem 143 
IFPEEK(197 )=29THENO2=02-J1 :01=01+J4 :rem 188 
IFPEEK(197 )=29THENI1=I1+J4 srem 144 
IFPEEK(BL)=93THENC=2 :T=7 :X=R:GOTOL5 srem 122 
POKEBL, 124:POKEO1 ,81 : POKEO2,81 : POKEO3,81:POKEI1,81:POKEI2, 
81 srem 80 
IFBL=O2ORBL=Ol1 THENOT=OT+1 : T=7 :X=R:C=1:GOTO1L5 srem 31 
IFBL=I1THENOT=OT+1 :T=7 :X=R:C=3:GOTOLS5 srem 47 
POKEO2 , 32 : POKEOI1 , 32:POKEBL, 32:POKEI1,32:POKES3,9 srem 193 
NEXT: IFT=7THEN18 srem 206 


BL=BL+D2 : POKEBL, 124:POKEBL, 32: IFO1>7856THENO1=7878:rem 206 


IFBL=0O1 THENOT=O0T+1 :T=7:C=1 


srem 61 


NEXT : POKES3 , 219 : FORT=1 T0308 : NEXT : POKES3 ,0: IFC=@THEN1 96 
s:rem 66 
ONCGOTO81 ,196,117 srem 116 
SS=9 :BA=9 : POKES3, 219 srem 77 
POKEBL , 32 :C=8 : FORT=1T0O7 srem 88 
FORX=1TOR :rem 6 
BL=BL+D1 srem 94 
IFPEEK(197)=37THENO2=02+J1 :03=03+J3 s:rem 234 
I FPEEK( 197 )=37 THENI 2=12+23 srem 166 
I FPEEK(197)=29THENO2=02-J1 :03=03~-J3 srem 241 
IFPEEK(197)=29THENI2=I12-23 srem 171 
IFO3>7877THENO3=7899 srem 101 
POKES3 ,@: IFPEEK(BL)=93 THENC=2 : T=7 :X=R:GOTO34 srem 208 
POKEBL, 124:POKEO1,81:POKEO2,81:POKE03,81:POKEI1,81:POKEI2, 
81 srem 81 
IFBL=O20RBL=03 THENOT=OT+1 :T=7 :X=R:C=1 :GOTO34 s:rem 35 
IFBL=I2THENOT=OT+1 : T=7 :X=R: C=3 :GOTO34 srem 598 
POKEO2 , 32 :POKEO3,32:POKEBL,32:POKEI2,32 srem 32 
NEXT : ILFT=7 THEN37 srem 2908 
BL=BL+D2 :POKEBL,124:IFO3>7899THENO3=7921 srem 71 
IFBL=O30RBL=02 THENOT=OT+1 : T=7: C=1 :GOTO37 :rem 10 
POKEBL, 32 :sNEXT: POKES3, 210:FORT=1TO30 :NEXT: POKES3 ,@: I1FC=@0TH 
EN196 s:rem 2903 
ONCGOTO81,196,117 srem 117 
PRINT" {CLR} { BLK}":POKE36879,93:POKES5,15 srem 245 
R=INT( (RND(1)¥*5)+1) :01=7794 :02=7735 :03=7808 : I FOT>=3THEN1 22 
s:rem 239 
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POKE8199 , 32:GOSUB119 :rem 76 
B1l=8985 :B2=7867 :B3=7993 sHP=8131 :11=7907 :12=7915 :PT=7998 
s:rem 218 
FORJ=7888T0O7972STEP21 :POKEJ, 78:NEXT srem 150 
FORJ=7890TO7982STEP23:POKEJ,77:NEXT srem 146 
FORJ=7921TO811O8STEP21:POKEJ, 78:NEXT srem 125 
FORJ=7878TO8108STEP23:POKEJ ,77:NEXT srem 145 
POKEB1 ,16@0:POKEB2,16@:POKEB3,16@:POKEHP, 160 srem 213 
POKEB1+CL, 6: POKEB2+CL,6:POKEB3+CL,6 : POKEHP+CL,6 srem 58 
POKEO1 , 81 : POKEO2 , 81 : POKEO3 ,81:POKEI1,81:POKEI2,81 :rem 161 
POKE8139,103 :POKE7999,1908:FORT=1TO500 :NEXT srem 196 
FORT=7680T0O77 23 : POKET, 93 :NEXT srem 247 
FORT=7791TO7899STEP22 :POKET,93:NEXT :rem 160 
FORT=7680TO7856STEP22 :POKET ,93 :NEXT s:rem 1690 
BL=7999+22 :FORT=1TO16:GETBS :NEXT srem 133 
GETAS : I FAS=""THEN55 :rem 247 
B1=124:B2=198:D=22:I1FAS="."THENB1=126:B2=188:D=23 :rem 78 
IFAS<>"/"ANDAS<>". "ANDAS<>", "THEN55 :rem 44 
FORJ=1T0O3 :BB=124:POKEBL,BB:FORG=1T05 :NEXT:POKEBL,32:BB=19 
8:POKEBL, BB srem 5 
FORG=1T0O5 :NEXT:POKEBL,32:BL=BL+22 :POKES3 ,210-2*J :NEXTJ 
srem 73 
IFPEEK(197)=32 THEN67 srem 74 
IFAS=", "THENFORT=1T0O250 :NEXT srem 147 
BL=BL+D:POKEBL, Bl : BB=1:FORG=1T0O5 :NEXT:POKES3 , 202-Q:IFPEEK 
(197)=32THEN67 s:rem 192 
POKEBL, 32 : POKEBL, B2:FORG=1TO5 :NEXT: BB=2 :Q=Q+2 :rem 24 
IFPEEK(197)=32 THEN67 srem 78 
POKEBL, 32: IFBL>8185 THEN77 srem 193 
GOTO62 :rem 13 
POKE8131,77:POKES3 ,8:Q=0:FORJ=1T05 :NEXT srem 112 
POKE8131,99:FORJ=1TO198 :NEXT: POKE8131,32 srem 37 
POKE8199, 78: FORJ=1TO10 :NEXT s:rem 97 
POKE8199,1901 s:rem 38 
IFBL=8 131 ANDBB=1 THEND1=-21 : D2=—-22 :GOTO2@6 srem 24 
IFBL=81909ANDBB=2THEND1=-22 :D2=-21 :GOTO2@ srem 31 
IF BL=89087 THEND1=-22 : D2=-23 :GOTO2 srem 49 
IF BL=8199ANDBB=1THEND1=-23 :D2=-22 :GOTO2 srem 242 
FORT=1TO2009 : NEXT: POKEBL, 32: SS=SS+1 : IFSS=3 THENSS=@ : BA=8 :OT 
=OT+] srem 254 
GOTO4G srem 19 
POKES3 , 9 :Q=98: I FD=22THENSS=SS+1 : I FSS=3THENSS=@ :BA=0 :OT=OT+1 
:GOTO4G s:rem 116 
IFD=22THEN4@Z srem 118 
BA=BA+1 : [FBA=4 THENBA=9 : SS=@ :GOTO1 06 s:rem 66 
GOTO49 srem 5 
POKEBL+CL,2:POKEBL,81 :TIS="Q9909000":IFOT=>3THEN4@ srem 19 
IFPEEK(197)=32THEN88 s:rem 81 
IFTIS>"@G009005"THEN1LG4 srem 38 
IFBL=01 THENX=23 :Y=-1 :Z=-22 srem 255 
IFBL=02 THENX=22 : Y=-1:Z=1 srem 160 
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86 IFBL=O3THENX=21 :Y=-22 :Z=1 srem 212 
87 GOTO82 srem 18 
88 D1=32 :D2=32 :D3=32 :C1l=7983 :C2=7866 :C3=8015 srem 116 
89 IFPEEK( 8096 )=87 THEND1=87 srem 64 
90 IFPEEK( 7845 )=87THEND2=87 s:rem 67 
91 IFPEEK( 7992 )=87 THEND3=87 srem 72 
92 POKE80@6,32:POKE7845,32 :POKE7992,32 srem 169 


93 FORE=1T0O6 :POKECI1 , Dl : POKEC2,D2:POKEC3,D3:POKES4,240 :rem 17 
94 FORF=1TO3 :BL=BL+X :POKEBL, 124:FORG=1TO29 :NEXTG : POKEBL, 32:PO 


KES4,@ srem 29 

95 IFPEEK(197)=29THENBL=BL+Y srem 200 
96 IFPEEK(197)=37THENBL=BL+Z :rem 201 
97 IFBL=7867THENOT=OT+1 :PRINT"{HOME}{6 DOWN}{1@ RIGHT} {RVS}OU 
T{OFF}{UP}":X=@ :Y=0:Z=0:D1=32 srem 216 

98 IFBL=7993THENOT=OT+1:PRINT"{HOME}{6 DOWN}{1@ RIGHT} {RVS}OU 
T{ OFF} {UP}":X=0 : Y=0: Z=0: D2=32 s:rem 218 

99 IFBL=8131THENOT=OT+1:PRINT" {HOME}{6 DOWN}{1@ RIGHT}{RVS}OU 
T{OFF}{UP}":X=0 :Y=0:Z=0 : D3=32 srem 205 
1900 NEXTF s:rem 22 
181 POKEC1,32:POKEC2,32:POKEC3 , 32:Cl=C1—23 :C2=C2+21 :C3=C3+23 : 
NEXTE srem 54 


182 POKEC1,D1:POKEC2,D2:POKEC3 , D3: IFD3=87THENRN=RN+1 :rem 295 
183 FORG=1TO0300 :NEXT: PRINT" {HOME}{6 DOWN}{8 RIGHT} {WHT} 


{18 SPACES} {BLK}" srem 224 
104 FL=8 :POKEO1] ,32:POKEO2,32:POKE03,32:POKEI1,32:POKEI2,32 
:rem 238 
185 POKEO1+CL,1:POKEO2+CL,1:POKEO3+CL,1:GOTO4@ srem 54 
186 Cl=8006 :C2=7845 :C3=7992 :D1=32 :D2=32 :D3=32 :HH=8153:POKESS, 
G@:POKES4, 235 srem 115 
187 IFPEEK(Cl)=87THEND1=87 srem 13 
198 IFPEEK(C2 )=87THEND2=87 srem 16 
199 IFPEEK(C3)=87THEND3=87 :rem 19 
118 POKEBL,124:POKEBL+CL,2:FORT=1T0O7 : POKEHH, 87: POKEC1, Dl :POKE 
C2,D2:POKEC3 ,D3 srem 242 
111 FORG=1TO6@ :NEXT : POKEHH, 32: POKEC1 , 32 : POKEC2 , 32 : POKEC3,32:P 
OKES5 ,T*2 srem 85 
112 HH=HH-21 :C1l=C1=-23 :C2=C2+21 :C3=C3+23 :NEXTT:POKEBL, 32:POKEB 
L+CL,1:POKES5,15 srem 58 
113 IFD3=87 THENRN=RN+1 srem 79 
114 POKEHH,87:POKEC1,D1:POKEC2,D2 srem 238 
115 FORG=7TO1STEP-1 : POKESS ,G* 2: FORJ=1 T0300 :NEXT :NEXTG : POKES4, 
@:POKES5,15 srem 126 
116 GOTO4G srem 53 
117 POKEBL,81:POKEBL+CL, 2 :FORT=1TO2008 :NEXT: POKEBL+CL, 1 :POKEO 
1,32:POKEO2, 32 srem 190 
118 POKEO3,32:POKEI1,32:POKEI2,32:GOTO49 srem 156 
119 PRINT" {HOME}{2@ DOWN}{RVS}RUNS ";RN;TAB(15)"{RVS}OUTS"OT; 
"{LEPT }" s:rem 49 
120 PRINT"{RVS}BALLS {LEFT}"BA;TAB(15)"{RVS}STRK"SS;"{LEFT}" 
s:rem 41 


171 


Sports Games 


121 PRINTTAB(4)"{RVS}SC1"S1;TAB(13)"{RVS}SC2"S2;"{2 UP}":RETU 
RN srem 67 

122 IFII=0THENS1=S1+RN:RN=0: II=1:PRINT" {CLR}":OT=@0 :GOTO41 
srem 163 

123 IFII=1 THENS2=S2+RN: RN=0: II=@:PRINT" {CLR}":OT=0 :GOTO41 
srem 166 
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The object of “Speed Demon,” a game for the unexpanded VIC, is to drive 
your car around the track and try to complete as many laps as possible in 
two minutes. 

If you complete more than ten laps, you'll get an extra minute of bonus 
time. When your time is up, you will be given a rating based on your per- 
formance. Work hard enough and maybe you will get a PRO rating. 

In Speed Demon the A key is used to turn your car counterclockwise, 
and the D key to turn clockwise. Press f1 for high speed and f3 for low 
speed. 


Saving the Programs 
Speed Demon is divided into two programs. The first contains instructions 
and DATA statements for creating graphics. If you use tape, enter Program 1 
with these changes: Delete lines 10010 and 10020 and substitute the follow- 
ing line for line 10000: 


10000 POKE36879,15:PRINT” {HOME} { YEL}PLEASE 
WAIT”:POKE198,2:POKE631,131:END 


Save Program 1 to tape. Then key in Program 2 and save it immediately 
after Program 1. When you run the first program, it will automatically load 
and run Program 2. 

If you use disk, be sure to save Program 2 with the filename SPEED.1, 
or adjust line 10010 of Program 1 to match your filename. 


Program 1. Speed Demon 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


18 PRINT" {CLR}" srem 197 
286 PRINT" {5 SPACES}{PUR}SPEED DEMON" srem 179 
30 PRINT"{5 SPACES}K1l T} srem 19 
49 PRINT" {BLK}DRIVE YOUR CAR AROUND THE TRACK AND TRY TO 

{2 SPACES}COMPLETE AS MANY LAPS AS "; srem 25 
5@ PRINT"POSSIBLE IN 2{6 SPACES}MINUTES." srem 179 
68 PRINT" {DOWN} COMPLETE MORE THAN 198 LAPS AND GET 1 MINUTE B 

ONUS TIME." srem 42 
65 PRINT" {DOWN} PRESS 'A' TO ROTATE{3 SPACES}YOUR CAR COUNTER 

{6 SPACES}CLOCKWISE AND 'D' To{2 SPACES}TURN";: srem 82 
66 PRINT" CLOCKWISE." srem 15 
67 PRINT" PRESS 'Fl1' TO GO FAST AND 'F3' TO GO SLOW." :rem 61 
78 PRINT" {DOWN}PRESS ANY KEY TO GO ON" srem 125 
88 GETAS :I1FAS=""THEN8@ srem 243 
90 PRINT" {CLR} {BLU} {RVS} WAIT A MINUTE" srem 76 
997 POKE52,28:POKE56, 28 srem 63 
998 FORI=7168T07679:POKEI , PEEK(I+2560@) :NEXT :rem 171 
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999 POKE36869,255 :rem 178 
1800 READN: I FNTHENFORN=NTON+15 : READA: POKEN ,A:NEXT:GOTO1O0@ 


srem 27 


9330 DATA 7432 ,@,56,84,124,56,124,124,56,56,124,124,56,124,8 


4,56,0 srem 189 


9350 DATA 7448 ,@,54,95,127,95,54,0,9,90,108,250,254,250,108,9 


4) srem 229 


e 
9370 DATA 7464 ,48,88,184,254,127,31,30,12,12,26,29,127,254,2 


48,128,48 :rem 98 


9398 DATA 7488 ,12,30,31,127,254,184,88,48,48,120,248, 254,127 


$29,726. 712 :rem 98 


9418 DATA 7496 ,238,238,152,152,238,239,128,128,8, 28, 28,62,62 


,127,8,8 srem 34 


9515 DATA7512,254,253,251,247, 239,223,191,127,127,191,223,239 


7247,251,253,254 :rem 37 


9528 DATA 7528,126,189,219,231,231,219,189,126,255,255,255,25 


9792997299 72994255 :rem 58 


9525 DATA76490,127,127,127,127,127,127,127,127,254,254, 254,254 


7254,254,254,254 srem 40 


9535 DATA7656,9,255, 255,255, 255,255,255,255,255,255,255,255,2 


55,255,255,0 srem 112 


9540 DATA7392,68,8, 34,136,5,64,17,68,09,9,9,08,8,8,8,8 :rem 29 
9999 DATA @ srem 46 
18008 POKE36879,15:PRINT"{CLR}{YEL} PLEASE WAIT":POKE 198,2:P 


OKE631,13:POKE 632,13 srem 126 
18010 PRINT "{HOME}{BLK}":PRINT "{2 DOWN}LOAD"; CHRS(34);"SPEE 
D.1";CHRS(34);",8":PRINT "{4 DOWN}RUN" srem 17 
19020 PRINT "{HOME}":END srem 232 


Program 2. Speed. | 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


POKE 36879,27:PRINT"{CLR}" srem 164 
S=7739 :SS=7761 :C=307290 : PA=37137 : PX=36872 : POKE36878,7:S1=368 
77:D=1:V=S srem lll 
POKE36877 ,@ srem 269 
T=75:TS="1" srem 153 
PRINT" {CLR} {PUR}{5 SPACES}SPEED DEMON" srem 69 
PRINT" {RVS}{5 SPACES}K1l1 T}" srem 70 
PRINT" {5 DOWN} HIT ANY KEY AND THEN{2 SPACES}WHEN THE CHEC 
KERED{4 SPACES}FLAG APPEARS{RVS}...{OFF}GO" :rem 188 
GETAS : IFAS=""THEN4G srem 235 
GOSUB1YOOD srem 166 
PRINT" {HOME}{2 SPACES}{BLU}LAPS:"L"{2 SPACES}TIME:"T 
:rem 36 
POKES , 35: POKES+C,4 :rem 6 
POKE7736,41 :POKE7736+C,@ :rem 8 
FORO=1 T0588 :NEXTO srem 12 
J=20@0 srem 134 
POKE7736, 32 :rem @ 


192 
119 
12 
130 
137 
148 
143 
145 
169 
189 
185 
196 
208 
210 
220 
238 
240 
258 
260 
270 
280 
290 
380 
318 
330 
340 
358 
360 
1980 
1916 


1020 


1825 


1830 


1940 


1050 


1860 


1870 


1980 
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TIS="Q0OG00" srem 243 
MS=MIDS(TIS,4,1) srem 13 
SS=MIDS(TIS,5,1) :rem 21 
OS=MIDS(TIS,6,1) s:rem 19 
IFMS>TSTHEN1LOOOS srem 113 
PRINT" {HOME} {7 RIGHT}"L"{7 RIGHT }"MS":"SSOS srem 120 
POKE 36878,7 srem 58 
POKE36877,J7 :rem 78 
IFPEEK(197)=18THEND=D-1 srem 53 
IFPEEK(197)=17THEND=D+1 :rem 52 
IFPEEK(197) <> 1lANDPEEK(197) <>4THEND=D srem 123 
IFD>8THEND=1 srem 196 
IFD< 1 THEND=8 srem 186 
IFD=1 THENG=35 :Z=-1 :rem 30 
IFD=2THENG=39 :Z=+21 srem 84 
IFD=3 THENG= 34 : Z=+22 srem 82 
IFD=4THENG=4@ :Z=+23 srem 82 
IFD=5 THENG= 36 :Z=+1l srem 37 
I FD=6 THENG=38 :Z=-21 srem 93 
I FD=7 THENG=33 :Z=-22 srem 91 
IFD=8THENG=37 :Z=-23 :rem 98 
I FPEEK(V+Z ) <> 32ANDPEEK( V+Z ) <> 16QTHENS52O@ srem 131 
POKEV+Z,G: POKEV+Z+C,4:POKEV, 32: V=V+Z srem 26 
IFV=SORV=SSTHENL=L+1 srem 67 
IFPEEK( 197 )=39THENT=@ :J=225 srem 47 
IFPEEK(197)=47THENT=75 :J=200 :rem 100 
FORE=9 TOT: NEXTE srem 230 
GOTO119 srem 100 
PRINT" {CLR}" srem 37 
PRINT" {OFF} {GRN}** *{2 SPACES}**{BLK}{RVS}K1l @}{OFF} 
{GRN}**" srem 199 
PRINT" {OFF }{GRN} *{2 SPACES}*** {BLK} {RVSIN{11 SPACES }M 
{OFF} {GRN}*" = srem 3 
PRINT" {OFF} {GRN}* ** *{BLK} {RVS}N{13 SPACES} KG} {OFF} 
{GRN}" a srem 182 
PRINT" {OFF} {GRN}*{2 SPACES}**{BLK} {RVS}N{2 SPACES}NK7 TJ 
M{3 SPACES}KG}{OFF}{GRN}" a srem 152 
PRINT" {OFF} {GRN} ** {BLK} {RVSIN{2 SPACES }N{OFF}{GRN}** * 
* * {RVS} {BLK} kM}{3 SPACES} KG}[OFF}{GRN}" srem 248 
PRINT" {OFF}{GRN}* *{BLK}{RVS}N{2 SPACES}N{OFF}{GRN} 
{BLK}, >+{GRN}*{2 SPACES}**{RVS}{BLK}N{3 SPACES}KG}{OFF} 
{GRN}" = srem 15 
PRINT"* {BLK}{RVS}N{2 SPACES}N{OFF}{GRN}{2 SPACES}{BLK}+ 
=,{GRN}*{RVS}{BLK}E3 @§N{4 SPACES}&G3{OFF}{GRN}":rem 205 
PRINT" {BLK} {RVS}N{2 SPACES}N{OFF}{GRN}* ** {RIGHT}{RVS} 
{BLK}N{7 SPACES}N{OFF}{GRN}" :rem 16 
PRINT" {BLK} {RVS}KM}{3 SPACES} £G}{OFF}{GRN}***{2 SPACES } 
{RVS}{BLK}KM}3{7 SPACES}N{OFF}{GRN} *" :rem 167 
PRINT" {BLK} {RVS}KM}{3 SPACES}KG}{OFF}{GRN}** * {RVS} 
{BLK} KM} {2 SPACES }NK4 TH{OFF}{GRN} * " srem 52 
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2000 PRINT" {BLK} {RVS}KM}{3 SPACES}KGF{OFF}{GRN}* ** [{RVS} 


20190 


2026 


2030 


2049 


2056 


2068 


2070 


2980 
2698 
3080 
3919 


3020 
5080 
5085 
5087 
5819 
59828 
5025 
5839 
5849 
5945 
5056 
19BBDB 


10801 
19BG2 
19003 


19904 
18009 
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{BLK} KM}{2 SPACES}KG}{OFF}{GRN}*** {BLK},+{GRN}*" _ 

-srem 
PRINT" {BLK} {RVS}KM3{3 SPACES}KG}{OFF}{GRN} ** *{RVS} 
{BLK}kM}{2 SPACES}M{OFF}{GRN}**{2 SPACES} {BLK}<; {GRN} ‘ 

srem 239 
PRINT" {BLK} {RVS}KM}{3 SPACES}KG}{OFF}{GRN}***{2 SPACES}* 
{RVS}{BLK}M{2 SPACES }M{OFF}{GRN}*{2 SPACES}{BLK}+,{GRN}* 
u s:rem 32 
PRINT" {BLK} {RVS}KM}{3 SPACES}KGJ{OFF}{GRN} **{2 SPACES}* 
*{RVS}{BLK}M{2 SPACES}M{OFF}{GRN} **{2 SPACES}" trem 28 
PRINT" {BLK} [RVS}KM3{2 SPACES}N{OFF}{GRN}*** {BLK}, .+{GRN} 
{2 SPACES}*{RVS}{BLK}M{2 SPACES }M{OFF}{GRN}**{2 SPACES}" 

srem 121 
PRINT" {BLK} {RVS}KM}{2 SPACES}KG} {OFF} {GRN}*{2 SPACES} 
{BLK}.-.{GRN}{2 SPACES}* {RVS}{BLK}M{2 SPACES}M{OFF} 
{GRN}** " srem 1 
PRINT" {BLK} {RVS}KM}{2 SPACES}KGJ{OFF} {GRN}*{2 SPACES} 
{BLK}+.,{GRN}{2 SPACES}* {RVS}{BLK}KM}{3 SPACES} KG} {OFF} 
{GRN}**" :rem 176 
PRINT" {BLK} {RVS}KM}{2 SPACES}KGJ {OFF} {GRN}**{3 SPACES}** 
*{2 SPACES} {RVS} {BLK} kM}{3 SPACES}KG} {OFF} {GRN}**" 


srem 252 
PRINT" {BLK} {RVS}KM}{2 SPACES}MK10 @JN{2 SPACES}N{OFF} 
{GRN}**" = ca ~ :rem 185 
PRINT" {GRN}*{RVS}{BLK}M{14 SPACES}N{OFF}{GRN}{2 SPACES}* 
" srem 37 
PRINT" {GRN} *{RVS}{BLK}M{12 SPACES}N{OFF} {GRN}*** 
{2 SPACES }" 7 - srem 71 
PRINT" {GRN}* *{RVS}{BLK}K12 T}{OFF}{GRN}***{3 SPACES} 
{uP}" srem 12 
RETURN srem 165 
POKEV,G :rem 189 
FORT=1TO1900:NEXTT srem 116 
POKEV, 28 : POKEV+C, 2 :rem 114 
POKE36877 , 220 srem 196 
FORE=15TO@STEP-5 srem 7 
POKE36878,E srem 124 
FORA=1 T0300 :NEXTA srem 78 
NEXTE s:rem 77 
POKEV, 32 : V=7738 : POKEV, 35: POKEV+C ,4:D=1 srem 86 
GOTO112 srem 149 


IFL> 10THENP RINT" { HOME} {DOWN} { RIGHT} {RVS}BONUS {HOME} 
{2 DOWN} {RIGHT}TIME!":TS="Q":TIS="Q@GOOOOH" :GOTO1L1 
srem 235 
POKE36877 ,@:PRINT" {CLR} {PUR}{5 SPACES}TIME IS UP" 
z:rem 54 
I FL<6 THENRS="GRANNY" srem 53 
IFL> 5ANDL<10THENRS="ROOKIE" srem 237 
IFL> 1OANDL< 20 THENRS="AMATEUR" srem 97 
IFL> 26 THENRS="PRO" srem 140 


10810 
18815 
19820 
19625 


10627 
1963G 
18G4 
19958 
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PRINT"{4 DOWN} YOU COMPLETED "L"LAPS" srem 97 
PRINT"{2 DOWN}YOUR RATING IS {BLK}"RS :rem 16@ 
PRINT"{3 DOWN}{PUR}{4 RIGHT} PLAY AGAIN?" srem 220 
S=7739 :SS=7761 :C=3072@ : POKE36878, 7 :S1=36877 :D=1:V=§S 
srem 252 
POKE198 ,@:L=@ srem 26 
GETAS : I FAS=""THEN1GO32 srem 11 
IFAS="Y"THENS srem 39 
PRINT" {CLR}": POKE36879, 27 :POKE36869, 240:PRINT" {BLU}":EN 
D srem 223 
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Lap Racer 


Driving games can be exciting and challenging, and provide a pleasant 
change from the usual ‘‘blast the alien” games. Commodore has a few of 
these for the VIC-20, but as far as I know there is no good old-fashioned 
game where the driver races around a track for the best time. 

Knowing this, I developed a program for the unexpanded VIC called 
“Lap Racer.”’ The objective is to race around the track anywhere from one to 
nine times (chosen at the beginning of the game) and beat the clock. 

The race car is controlled with the joystick. It is not limited to vertical 
and horizontal movements only, but can also move diagonally. The fire but- 
ton is used to accelerate. You may circle the track either way you like, but 
you must hold that direction throughout the game. 


Understanding the Program 
Lines 90-110 initialize the variables. The variable A contains the location of 
the car on the screen (1-506). SQ is the beginning of the POKE locations on 
the screen (7680), and SW is the color location (38400). 

Lines 500-530 contain the joystick subroutine. These lines check to see 
which way the joystick is pointed, then adjust A accordingly. 

Line 550 POKEs in the race car. JS(X+4,Y +1) is the current direction 
that the car is pointing. 

Lines 1300-1440 PRINT the race track onto the screen. By changing 
these lines, the user can put obstacles on the track or can draw a completely 
new one. A good way to create new race tracks is to draw them out on 
graph paper (22 X 23) first, then type in the PRINT statements. 


Creating Programmable Characters 
Lines 3000-5000 design the specialized characters used in this program. Line 
3090 POKEs the codes for these characters into the new character memory. 
CH is the location of the new character memory (7168). Z*8 is the character 
that must be changed, and J is the byte in that character (each character con- 
tains eight bytes) that is being changed. 

The first number in each DATA statement from line 4010 to line 4050 is 
the POKE code of the character you are changing. For example, the first 
number in line 4010 is 3. The POKE code for the letter C is 3, so line 4010 is 
changing the letter C. Now, if you ask the computer to print a C later in the 
program, it will print a race car. The POKE code for D is 4, for E, it is 5, and 
so forth. 

The rest of the numbers in the DATA statements are the values of each 
of the eight bytes of the character you are changing. Each byte in that 
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character controls a horizontal line on the screen that is eight pixels long. 
These bytes contain eight bits, each of which is simply 1 or 0, on or off. If a 
bit is 1, then the corresponding pixel is turned on. Since the bits can be only 
1 or 0, values in the bytes must be represented in binary. For example, the 
value 255 is represented in binary as eight 1’s, or 11111111. If a byte in 
character memory contains a value of 255, then all the bits in that byte 
would be turned on, turning on all eight pixels, thus creating a solid hori- 
zontal line in that character. 

The code for a race car pointing upward is contained in line 4010, start- 
ing with the number 90, which is the binary code for the top line of the race 
car, and ending with 60, which is the code for the bottom line. Lines 
4010-4040 are the race cars (pointing in different directions), and line 4050 
is the explosion character. 

When line 3080 reaches the DATA statement in line 5000, it tells the 
computer: 


POKE 36869,255 


This changes the character memory pointer from a point in ROM (the part of 
the computer that the user can’t access) to a point in RAM, namely, 7168. 

Once you have changed the character memory pointer, however, the 
computer will look at the new character memory for all the character codes. 
Consequently, if the computer is asked to print something later in the pro- 
gram, it is going to print a bunch of unreadable garbage. Don’t panic: There 
happens to be an easy solution to the problem. Simply print the reverse of 
whatever you want to print, and it will do what you wanted in the first 
place. To print the reverse of something, just hit CTRL and 9 inside quota- 
tion marks, and the rest of the characters will be reversed. 


Lap Racer 

For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 

49 POKE36878,3:A=200:PRINT"{CLR}" z:rem 234 
98 SQ=7686 :SW=38480 :rem 63 
198 DIMJS(5,2) :POKE37139,0: DD=37154:PA=37137 :PB=37152:rem 211 
118 FORI=0TO2 :FORJ=8TO5:READJS(J,I1) :NEXTJ,I srem 239 
120 DATA=-23 ,-22,-21,3,3,5,-1,9,1,6,3,5,21,22,23,6,4,4 :rem 14 
160 GOSUB3060 :rem 218 
186 SE=36877 srem 125 
348 PRINT"{RVS}HOW MANY LAPS?(1-9)" srem 244 
342 GETCV : I FCV=@ THEN342 srem 169 
358 GOSUB130@ srem 220 
378 V=TI srem 282 


5968 POKEDD,127:S3=-( (PEEK(PB)AND128)=@) :POKEDD, 255 srem 122 
518 P=PEEK( PA) :S1=-((PAND8)=@) :S2=((PAND16)=@) :SG=((PAND4)=0) 


s:rem 177 
520 FR=-((PAND32)=@) :X=S2+S3 :Y=S0+S1 srem 55 
525 POKESQ+A,32:POKESE, 210+FR*27 srem 134 
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A=A+JS(X+1,Y+1) : I FA< 22 THENA=A+22 s:rem 44 
FORI=1TO27-FR*27 :NEXT srem 24 
IFPEEK(SQ+A) <> 32THEN600 srem 82 
POKESQ+A,JS(X+4,Y+1) : POKESW+A, 2 srem 104 
IFA> 483 THENA=A-22 srem 203 
GOTO58@ srem 114 
POKESE ,9@ :rem 185 
I FPEEK (SQ+A)=194THEN7 30 srem 81 
POKESQ+A, 18: POKESW+A, 6 srem 72 
POKESE, 220 srem 31 
FORL=15TO@STEP-1 : POKE36878,L srem 205 
FORI=1TO1900 :NEXT:NEXT srem 98 
POKESE ,@:POKE36878,2:PRINT"{CLR}" srem 57 
GOSUB1 3980 s:rem 222 
PRINT" { HOME} {RVS}"SU srem 58 
GOTO50¢G srem 109 
SU=SU+1 : PRINT" {HOME} {RVS}"SU srem 91 
TM=TI-V srem 157 
IFSU=CVTHENPRINT" {CLR} {RVS}TIME ELAPSED{HOME}{2 DOWN}FOR" 
CV"LAPS="TM: POKE36869 , 248 :GOTO745 srem 207 
GOTO75@¢ srem 114 
s:PRINT" {DOWN}HIT ANY KEY" srem 114 
GETRS : IFRS=""THEN7 46 srem 135 
RUN srem 151 
POKESQ+A,194:POKESW+A,5:A=A+JS(X+1,Y+1) :GOTO569 srem 67 
POKE36879,124 srem 199 
PRINT" {PUR} IIIIIIIIIIIIIIIIIIIII" srem 48 
PRINT"I{6 SPACES}IIIIIIIIIIIIII" srem 225 
PRINT"I{6 SPACES} III{8 SPACES}III" srem 149 
PRINT"I{6 SPACES}II{9 SPACES}III" srem 81 
PRINT"I{3 SPACES}1I{2 SPACES}1I{4 SPACES}III{4 SPACES}II" 
s:rem 223 
PRINT"I{3 SPACES}1I{2 SPACES}I{3 SPACES}IIII{5 SPACES}I" 
srem 228 
PRINT"I{2 SPACES}II{2 SPACES}I{2 SPACES}IIIIII{4 SPACES} 
I" srem 187 
PRINT"I{2 SPACES}II{2 SPACES}I{2 SPACES}IIIIIII 
{3 SPACES}I" srem 9 
PRINT"I{2 SPACES}I1{2 SPACES} {RVS}{GRN}B{OFF} {PUR} 
{2 SPACES}IIIIIII{3 SPACES}I" srem 229 
PRINT"I{2 SPACES}II{2 SPACES } {RVS} {GRN}B{OFF} {PUR} 
{2 SPACES} IIIIIII{3 SPACES}I" srem 225 
1358 PRINT"I{2 SPACES}III {RVS}{GRN}B{OFF}{PUR} IIIIIIII 
{3 SPACES}I" srem lll 
PRINT"I{2 SPACES}IIIIIIIIIII{6 SPACES}I" srem 84 
PRINT"I{2 SPACES}IIIIIIII{8 SPACES}II" srem 190 
PRINT"I{3 SPACES}IIIIII{8 SPACES}III" srem 122 
PRINT"II{3 SPACES}IIIII{3 SPACES}IIIIIIII" :rem 227 
PRINT"III{3 SPACES}IIII{3 SPACES}IIIIIIII" :rem 232 
PRINT"III{3 SPACES}IIIII{6 SPACES}IIII" srem 9 
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1385 PRINT"III{3 SPACES}IIIIII{6 SPACES}III" :rem 14 
1398 PRINT"III{15 SPACES}III" srem 84 
1395 PRINT"IIII{13 SPACES}IIII" srem 235 
1400 PRINT"IIIII{11 SPACES}IIIII" srem 112 
1430 PRINT" {RVS} {RED } QQQQQRQEAAQEQAQERQEQEQQQQQ" srem 236 
14498 RETURN srem 169 
2999 REM DESIGN CUSTOM CHARACTERS srem 54 
3006 CH=7168:POKE51,24@:POKE52,CH/256-1 : POKE5S , 240 : POKE56, CH/ 

256-1 srem 237 
3028 FORI=@TO7 : POKECH+256+1,@8:NEXT srem 65 
30980 READZ: I FZ=-1 THENPOKE36869, 255:RETURN srem 79 
3898 FORJ=0TO7 : READB : POKECH+Z* 8+ , B: NEXTJ srem 93 
4888 GOTO3082 srem 200 
4919 DATA3,98,126,98,24,189,255,189,62 srem 137 
4928 DATA4,69,189,255,189,24,98,126,90 srem 139 
4938 DATAS,112,39,242,255,255, 242, 39,112 srem 222 
4949 DATA6,14,228,79,255,255,79,228,14 srem 146 
4945 DATA9,255,255,255,255,255,255,255,255 srem 96 
4058 DATA1®@,2601,1807,62,252,63,124,214,147 srem 3 
5800 DATA-1 srem 61 
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“Slot Machine” is an interesting game for the unexpanded VIC. Writing the 
game, I gained a lot of experience with cursor and subroutine usage on the 
VIC. Additionally, I discovered some interesting sound effects and a method 
by which I was able to blink a prompt on the display. 

Similar to a real slot machine, this version allows a combination of five 
ways to win. You select the number of ways to win by depressing the fire 
button on the joystick. Each depression of the fire button gives another way 
to win. After you make your winning selections, the joystick handle is 
“pulled” for the slot machine to run. 

Selection of winning combinations is purely random with a weighting 
factor toward the least payoff. Lines 53-58 show how this weighting factor is 
accomplished and how the random numbers are manipulated. Winning pay- 
offs are as follows: 


Red Ball 15 
White Diamond 50 
Purple Club 100 
Cyan Heart 150 
Blue Spade 500 
Green Diamond 2500 
Black Bar 5000 


To start the game, depress the fire button on the joystick and have some 
fun with a slot machine on your own VIC-20. 


The Program 

For those who are interested in the usage of the joystick fire button and 
handle, lines 30-49 will show the techniques I used. Also included in this 
logic are the necessary checks to insure that the pot doesn’t decrease below 
zero and to limit the number of fire button depressions to five. 

Graphic generation is accomplished in lines 1500-1630. Display of the 
graphics occurs in lines 70-106 along with the random number generators 
and weighting factor. 


Slot Machine 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


1 DIMT$(7):T$(1)="{RED}Q{BLU}":T$(2)="{WHT}Z{BLU}":TS(3)=" 
{PUR }X{BLU}":T$(4)="{CyN}S{BLU}":T$(5)="{BLUJA{ BLU} " 


srem 263 
2 T$(6)="{GRN}Z{BLU}":TS$(7)="{BLK} +} {BLU}" srem 217 
3 W3=7:W2=1 :W1l=2 : W6=7 : W5=1 : W4=2 : W9=7 s WB=1 : W7=2 srem 226 
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and Luck 
4 P=200:S=6 : V=36878 :N=36875 :AC=1 srem 42 
5 POKE36879,126:POKE37139,9 srem 6 
6 PRINT"{CLR}":PRINTTAB(5)"SLOT MACHINE": PRINT: PRINT: PRINT 
srem 142 
7 FORI=1T0O7 :rem 175 
8 PRINTTAB(8)"{WHT}{RVS}{7 SPACES} {OFF} {BLU}" :rem 49 
9 NEXTI srem 193 
10 PRINT"{6 UP}"TAB(9)TS$(1)TAB(11)T$(1)TAB(13)T$(1) srem 253 
1l PRINT:PRINTTAB(9)T$(7)TAB(11)TS(7)TAB(13)TS$(7) srem 45 
12 PRINT: PRINTTAB(9)TS(1)TAB(11)TS$(1)TAB(13)TS$(1) srem 28 
13 PRINT:PRINT:PRINT:PRINTTAB(7)"POT="P srem 105 
14 PRINT" {HOME}{2@ DOWN}"TAB(2)"SELECT WAYS TO WIN" :rem 208 
15 GOTO390 s:rem 2 
16 PRINT" {HOME}{3 DOWN}"TAB(6)"{RED}*{DOWN}M{8 DOWN}"TAB(15)" 
{ RED }M" srem 135 
17 RETURN srem 72 
18 PRINT" {HOME}{6 DOWN}"TAB(6)"{RED}**"TAB(15)"*{BLU}":rem 12 
19 RETURN - - srem 74 
20 PRINT" {HOME}{8 DOWN}"TAB(6)"{RED}**"TAB(15)"*{BLU}":rem 39 
21 RETURN srem 67 
22 PRINT"{HOME}{128 DOWN}"TAB(6)"{RED}**"TAB(15)"*{BLU}" 
= “= srem 75 
23 RETURN srem 69 
24 PRINT" {HOME}{13 DOWN}"TAB(6)"{RED}*{UP}N{8 UP}"TAB(15)"N 
{BLU}" :rem 181 
25 RETURN srem 71 
26 S=S+1l :POKE36878,15:POKE36875,195 srem 243 
27 ONSGOSUB28,22,18,24,16 srem 133 
28 POKE36878 ,@:POKE36875,@ srem 215 
29 RETURN srem 75 
30 FB=((PEEK( 37137) AND32)=0) srem 234 
31 IFP=@ANDS=9THEN1 23 srem 8 
32 IFP=90THEN34 srem 71 
33 IFFBTHENGOTO39 srem 81 
34 HA=((PEEK( 37137) AND8)=90) s:rem 194 
35 IFS=0THEN3@ srem 73 
36 IFHATHENGOTO48 srem 85 
37 AC=1 srem 92 
38 GOTO30 srem 7 
39 IF(AC=1ANDS<>5) THENGOSUB26 :P=P-5 srem 163 
49 IFS=50RP=9THEN44 srem 173 
41 FR=FRE(@):PRINT"{HOME}{16 DOWN}"TAB(5)"PULL HANDLE":rem 8@ 
42 PRINT" {HOME}{18 DOWN}"TAB(9) "OR" :rem 194 
43 GOTO45 srem 9 
44 PRINT" {HOME}{18 DOWN}"TAB(9)"{3 SPACES}{2 DOWN}{11 LEFT} 
{28 SPACES}" srem 4 
45 PRINT" {HOME}{14 DOWN} {BLU}"TAB(12)"{5 SPACES}{5 LEFT}"P 
srem 138 
46 AcC=0 srem 91 
47 GOTO3¢ srem 7 
48 A=INT(RND(1)*7)+1 srem 73 


Logic 


and Luck 
IFA< 2THENA=2 srem 138 
PRINT" {HOME}{16 DOWN}"TAB(5)"{12 SPACES}" :rem 250 
PRINT: PRINTTAB(8)"{3 SPACES}" :rem 94 
PRINT:PRINTTAB(2)"{19 SPACES}" srem 89 
D=7 :FORI=1T06 :GOSUB6@ :NEXTI srem 179 
D=A:FORI=1TO3 :GOSUB6@ : NEXTI srem 187 
D=7 :FORI=1TO3 :GOSU B69 :NEXTI srem 187 
D=A: FORI=1TO3 :GOSUB69 :NEXTI srem 198 
D=7 : FORI=1TO3 :GOSUB78 :NEXTI :rem 189 
D=A:FORI=1TO3 :GOSUB78 : NEXTI srem 200 
GOTO89 srem 24 
X=INT(RND(1)*D)+1:W3=W2 :W2=W1 :W1l=X :rem 208 
POKE36875 , 215: POKE36876,187:POKE36878,15 srem 181 
POKE36878,@ srem 3 
PRINT" {HOME }"TAB(9)"{6 DOWN}"; srem 147 
K=W3 :GOSUB88 s:rem 166 
PRINT" {HOME }"TAB(9)"{8 DOWN}"; srem 183 


K=W2 :GOSUB88 

PRINT" {HOME}"TAB(9)"{18 DOWN}"; 
K=W1 :GOSUB88 

Y=INT(-RND(1)*D)+1 

POKE36875, 219 : POKE36876, 225 : POKE36878, 15: POKE36878,@ 


ry 
1 
=| 
NO 
~~ 
Oo 


srem 135 
W6=WD5 : W5=W4 x«xy W4=Y srem 167 
PRINT" {HOME }"TAB(11)"{6 DOWN}"; srem 188 
K=W6 :GOSUB88 srem 169 
PRINT" {HOME }"TAB(11)"{8 DOWN}"; srem 224 
K=W5 :GOSUB88 :rem 1798 
PRINT" {HOME }"TAB(11)"{1@8 DOWN}"; srem 4 
K=W4 :GOSUB88 srem 171 


Z=INT(RND(1)*D)+1 
POKE36875 , 223 : POKE36876, 227 : POKE36878,15 : POKE36878 ,@ 


Ky 
i) 
Z 
— 
~— 
Aa 


s:rem 141 
W9=WS8 : W8=W7 : W7=Z srem 183 
PRINT" {HOME }"TAB(13)"{6 DOWN}": srem 190 
K=W9 :GOSUB88 s:rem 172 
PRINT" {HOME }"TAB(13)"{8 DOWN}": srem 226 
K=W8 :GOSUB88 srem 173 
PRINT" {HOME }"TAB(13)"{18 DOWN}"; srem 6 
K=W7 :GOSUB88 srem 174 
RETURN srem 79 
PRINTTS(K) :RETURN s:rem 43 
POKE36878 ,@:POKE36875,@ srem 222 
IFS=98 THEN 30 srem 74 
FORE=1TOS srem 250 
ONEGOTO1@5,193,1981,99,97 srem 212 
NEXTE s:rem 249 
S=8:PRINT" {HOME}{3 DOWN}"TAB(6)" ":PRINT:PRINT:PRINTTAB(6) 
" "s:PRINT:PRINTTAB(6)" " srem 71 
PRINT: PRINTTAB(6)" ":PRINT:PRINT:PRINTTAB(6)" " srem 91 
GOTO14 srem 13 
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97 IFW3=W5ANDW3=W7 THENB=W3 :GOSUB197 srem 4 
98 GOTO93 srem 22 
99 I FW1=W5 ANDW1=W9 THENB=W1 :GOSUB197 :rem 2 
188 GOTO93 srem 54 
191 IFW3=W6 ANDW3=W9 THEN B=W3 :GOSUB107 srem 41 
182 GOTO93 :rem 56 
193 IFW1=W4ANDW1=W7 THENB=W1 :GOSUB197 :rem 33 
194 GOTO93 srem 58 
195 ILFW2=W5 ANDW2=W8 THENB=W2 :GOSUB197 srem 40 
186 GOTO93 srem 60 
187 ONBGOTO116,117,118,119,120,121,122 srem 218 
198 PRINT" {HOME}{2@ DOWN}"TAB(7)"YOU WIN" :rem 95 
189 FORH=1TOB :rem 28 
119 POKE36878,15 :POKE36875,219 srem 161 
lll P=pP+5 srem 208 

112 PRINT"{HOME}{14 DOWN}"TAB(12)"{5 SPACES}{5 LEFT }"P 
srem 150 
113 POKE36878 ,@:POKE36875,0 srem 2 
114 FORD=1T0194:NEXTD: NEXTH srem 177 
115 RETURN srem 119 
116 B=3:GOTO1G8 srem 86 
117 B=18:GOTO198 srem 133 
118 B=28:GOTO198 srem 135 
119 B=58:GOTO198 srem 139 
120 B=190:GOTO198 srem 175 
121 B=58@8 :GOTO198 srem 189 
122 B=190900 :GOTO1G8 srem 225 
123 PRINT" {CLR}{5 SPACES}{6 UP}POT= 6" srem 192 
124 PRINT"{4 DOWN}{4 SPACES}PLAY AGAIN? {RVS}Y{OFF} {LEFT }"3:G 
ETYS : IFYS=""THEN123 :rem 121 
125 IFYS="Y"THEN3 srem 224 
126 END srem 112 
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Code Game 


This game will help you understand the difficulty in decoding a code that is 
generated from capital letters and the numbers 0-9. The program also helps 
you understand the subtle processes that the mind goes through to solve a 
problem. 

The program initially requests you to input a code. It will be used by the 
program to generate a pseudorandom code which you'll attempt to solve. 
The code that you input is limited to capital letters and the numbers 0-9. 
The length of your code is also limited to ten characters. 

Line 50 sends the computer to a subroutine that determines the length 
of the pseudorandom code. Lines 60-80 make sure that your input agrees 
with the input criteria. Line 90 sends the computer to a subroutine at lines 
150-220. This subroutine generates the pseudorandom code that you are to 
solve. 

Line 100 sends the computer to the subroutine at lines 230-380. This 
subroutine compares your subsequent inputs with the pseudorandom code. It 
gives you feedback on the correctness of your input as compared with the 
pseudorandom code. The subroutine also counts the number of your at- 
tempts (T), and it gives you the correct character after five attempts. The 
character that you are given is the first character, followed by the next 
characters after each of five attempts. 

If you solve the code before you are given the last character, you will be 
told the number of attempts it took you to solve the code (T); otherwise, you 
will be prompted with GAME OVER CODE WASG.... 


Code Game 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 


20 PRINT" {CLR}":B=0 :T=0:E=0:RS(1)="" srem 73 
30 PRINT" INPUT A CODE (A->Z AND OR @->9)" srem 191 
35 PRINT"CODE LENGTH OF LESS":PRINT"THAN 19" srem 121 
48 INPUTRS(@) :H=LEN(RS$(@)):IFH>10 THEN2@ srem 18 
5@ IFT<1 THEN GOSUB139 srem 248 
68 FORX=1 TOA: FORY=58T064: IFMIDS(RS$(8),X,1)=CHRS(Y) THEN2@ 
s:rem 145 
78 IFASC(MIDS(RS(@),X,1))<48 OR ASC (MIDS(RS$(@),X,1))>98 THEN2 
4) srem 21 
80 NEXTY :NEXTX srem 209 
90 IFT<1l THEN GOSUBL59 srem 254 
180 GOSUB230 srem 166 


119 POKE299,162:POKE219,31:PRINT"DO YOU WANT TO TRY" :rem 36 
115 POKE209,184:POKE2190,31:PRINT"AGAIN (Y=YES OR N=NO)" 


srem 194 
116 INPUTRS srem 158 
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12Q@ IFLEFTS(RS,1)="Y" THEN 20 srem © 
125 IFLEFTS(RS$,1)<>"Y" THEN END srem 183 
130 A=LEN(RS(@) ) :rem 57 
146 RETURN srem 117 
158 FORY=1TOA srem 40 
160 D(Y)=INT(RND(1)*45)+5@ s:rem 135 
170 IFD(Y)>98 OR D(Y)<48 THEN1692 srem 185 
175 IFD(Y)>57 AND D(Y)<65 THEN 160 srem 242 
188 NEXTY srem 49 
198 FORY=1TOA srem 44 
200 RS(1)=LEFTS(RS(1),Y)+CHRS(D(Y) ) s:rem 79 
210 NEXTY srem 43 
220 RETURN srem 116 
230 PRINT" {CLR}":FORX=1TOA srem 196 
240 IFMIDS(RS(@),X,1)=MIDS$(RS$(1),X,1) THEN B=B+l srem 253 
250 NEXTX srem 46 
255 IFB=A AND C<A THENPOKE299,66:POKE2190,30:PRINT"YOU HAVE SO 
LVED THE" srem 116 
260 IFB=A AND C<A THENPOKE2909,88:POKE210,30:PRINT "CODE WITH"; 
T: "ATTEMPTS" srem 124 
278 IFB/A<1 THEN POKE209,88:POKE21@, 30 srem 193 

275 IFB/A<l1 THEN PRINT INT(B/A*100);"{3 SPACES}% CORRECT" 
s:rem 163 
280 IFB=A THEN C=9 srem 2609 
298 IFB<¢>A THEN3190 srem 234 
300 RETURN srem 115 
318 POKE299,110:POKE2190,30:T=T+1:E=E+1l:INPUT"TRY AGAIN":RS(@) 
srem 30 
315 FORX=1TOA srem 42 
316 Z(X)=PEEK( 7800+xX) srem 162 
317 IFZ(X)<27 THEN R$(8)=R$(@)+CHRS (Z(X)+64) srem 65 
318 IFZ(X)>47 AND Z(X)<58 THEN R$ (@)=R$(@)+CHRS(Z(X)) srem 48 
319 NEXTX s:rem 52 
320 IFE=5 THENC=C+l srem 41 
330 IFE=5 THEN POKE2@9,162:POKE219,31 :rem 38 
335 IFE=5 THENPRINTLEFTS(RS$(1),C) srem 164 
349 IFE=5 THENE=0 srem 199 
345 IFC=A THEN POKE299,110:POKE219,39 srem 46 
35@ IFC=A THEN PRINT"GAME OVER CODE WAS" :rem 68 
355 IFC=A THEN POKE209,132:POKE210,30:PRINTRS(1) srem 242 
360 B=0:FORX=1TO1900@ :NEXTX s:rem 1909 
378 IFC<A THEN2390 srem 173 
388 C=06:T=8 :RETURN s:rem 96 
398 END srem 115 
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| Logicolor 


This game of logic for the unexpanded VIC is easy to play but difficult to 
master. The objective is deceptively simple: Guess the color pattern that the 
computer has preselected using the clues given after each guess. 

There are four positions to match. The correct solution requires that you 
guess the correct color for each position. After each guess your VIC will tell 
how many of the colors you guessed match in the correct position, how 
many match but were in the wrong position, and how many don’t match. 
Use the clues to help find the correct answer. You'll get only six tries to fig- 
ure out the solution, and once you enter a guess there’s no turning back. 


Logicolor 

For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 

5 PRINT" {CLR}":IFPEEK(44)=18GOTO15 srem 133 
18 SC=7689 : CL=38408 :GOTO20 srem 227 
15 SC=4996 :CL=37888 :rem 36 
28 SB=36879: VL=36878 :S=36874 : T=36875 : U=36876 :rem 246 
38 POKESB,152:POKEVL,15 srem 136 


49 PRINT" {CLR}":PRINT:PRINT:PRINTSPC(6)"{BLK}LOGICOLOR":rem 8 
45 PRINT:PRINT:PRINTSPC(2)"YOU HAVE SIX TRIES":PRINTSPC(3)"TO 


GET THE RIGHT" srem 36 

46 PRINTSPC(2)"COLOR COMBINATION" srem 86 
58 PRINT:PRINT" '";CHRS(113);"'= ONE COLOR IS IN":PRINT"THE CO 
RRECT POSITION" srem 48 

55 PRINT :PRINT" ' {WHT }";CHRS(113);"{BLK} '= ONE COLOR IS IN":PR 
INT"THE WRONG POSITION" srem 69 

69 PRINT:PRINTSPC(1)"{RED}CAUTION! YOU CAN'T":PRINTSPC(1)"CHA 
NGE A COLOR ONCE" srem 254 

61 PRINTSPC(1)"A KEY IS STRUCK! {BLK}" srem 243 
65 PRINT:PRINTSPC(5)"HIT ANY KEY" srem 37 
76 GETBS :IFBS=""THEN7@ srem 243 
198 A=INT(RND(1)*6)+3 :rem 111 
118 B=INT(RND(1)*6) +3 s:rem 113 
126 C=INT(RND(1)*6)+3 srem 115 
138 D=INT(RND(1)*6)+3 s:rem 117 
158 RP=81 :R=87 :Q=63 :E=1698 :N=200 :DI=49 srem 98 
160 RCP=0:WCP=d s:rem 122 
178 X=SC+3* 22 :V=CL+3* 22 :P=9 srem 247 


200 PRINT" {CLR}" : srem 246 
218 PRINT" {HOME }COLOR{2 SPACES}{RED}{RVS} {OFF} {CYN}{RVS} 
{OFF} {PUR}{RVS} {OFF} {GRN}{RVS} {OFF} {BLU}{RVS} {OFF} 


{SPACE} {YEL}{RVS} {OFF}{BLK}" :rem 144 

220 PRINT" KEY{3 SPACES}3 4 5 6 7 8" srem 143 

300 FORWW=1TO6 srem 111 
588 POKEX+3,R:POKEX+4,R:POKEX+25 , R: POKEX+26,R:POKEX,DI 

srem 179 
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POKEV+3 , 0: POKEV+4 ,@ : POKEV+25 , 8: POKEV+26,@:POKEV,8:rem 197 
POKEX+P,Q:POKEX+P+2,E: POKEX+P+4,E: POKEX+P+6,E: POKEV+P,9 
srem 208 
GOSUB1 88 :rem 217 
H=VAL (AS) srem 184 
P=P+2 s:rem 213 
POKEX+P,Q:POKEV+P,9 srem 177 
GOSUB1OOB srem 222 
I=VAL(AS ) s:rem 189 
P=P+2 srem 208 
POKEX+P,Q:POKEV+P,@ srem 172 
GOSUB1OOO srem 217 
J=VAL(AS ) srem 185 
P=P+2 srem 212 
POKEX+P,Q:POKEV+P,9 srem 177 
GOSUB1@9OO srem 222 
K=VAL (AS ) srem 191 
GOSUB39090@0 srem 218 
Z=INT(RND(1)*4)+3 srem 141 
IFZ=5 THENZ=25 srem 35 
IFZ=6 THENZ=26 srem 38 
IFRCP=9 THEN869 srem 76 
FORQL=1TORCP :rem 25 
POKEX+Z, RP: POKEV+Z,9@:POKES ,N: FORZZ=1TO100 :NEXTZZ : POKES, @ 
:rem 12 
Z=Z+1 :rem 229 
IFZ=5 THENZ=25 srem 33 
IFZ=27 THENZ=3 s:rem 35 
NEXTOL :rem 129 
IFRCP=4 THEN49 30 s:rem 120 
IFWCP=Q0THEN949 srem 8@ 
FORLQ=1TOWCP srem 30 
POKEX+Z, RP: POKEV+Z, 1 :POKEU ,N: FORZZ=1TO100 :NEXTZZ: POKEU ,@ 
srem 17 
Z=Z+1 s:rem 238 
IFZ=5 THENZ=25 srem 33 
IFZ=27 THENZ=3 s:rem 35 
NEXTLQ srem 120 
RCP=9 : WCP=0 s:rem 128 
X=X+3* 22 :V=V+3* 22 :P=9:DI=DI+1l srem 115 
NEXTWW srem 146 
GOTO5068 srem 158 
GETAS :IFAS="""THEN1OOD srem 165 
IFAS>"8"ORAS<"3"THEN1OOBG srem 25 
POKEX+P , E: POKEV+P,VAL(AS) -1 srem 147 
RETURN srem 164 
I FH=ATHEN3945 srem 19 
IFH=BANDI <> BTHEN30490 :rem 232 
I FH=CANDJ <> CTHEN384@ srem 236 
I FH=DANDK <> DTHEN304@ srem 242 
GOTO030594 srem 199 


WCP=WCP+1 

GOTO039058 

RCP=RCP+1 

IFI=BTHEN3@85 

IFI=AANDH< >ATHEN388@G 
IFI<>CORJ=CTHEN3060 

IFH< >CTHEN308@2 
IFH=ATHEN388@ 

IFH< > AANDH=BTHEN398@ 

IFI<> DORK=DTHEN3907@ 
IFH<>DTHEN398@ 

I FH=ATHEN3089 

I FH < > AANDH=BTHEN388@0 

IFH<> AANDJ< > CANDH=CTHEN 3080 
GOTO031980 

WCP=WCP+1 

GOTO319008 

RCP=RCP+1 

IFJ=CTHEN3135 

IFJ=AANDH<> AANDI<>ATHEN31 30 
IFJ=AANDH< > AANDI=BTHEN313@ 
IFJ=BANDI <> BANDH< > BTHEN31 30 
IFJ=BANDI <> BANDH=ATHEN313@4 
IFJ<>DORK=DTHEN3129 

I FH <> DANDI <> DTHEN313@4 

I FH=AANDI=BTHEN31 304 
IFH=AANDI=CTHEN313@ 
IFH=BANDI=CTHEN3130 
IFH=CANDI=BTHEN313@ 

I FH=CANDI=ATHEN313@4 
IFH=BANDI=ATHEN3139@ 
IFH=AANDI <> DTHEN313@4 
IFH=BANDI<>DTHEN3139 
IFH=CANDI<>DTHEN313@4 

IFH< > DANDI=ATHEN313@ 
IFH<>DANDI=BTHEN313@4 

IFH< > DANDI=CTHEN313@ 
GOT0315@ 

WCP=WCP+1 

GOTO315@ 

RCP=RCP+1 

IFK=DTHEN3185 

IFK< >AORH=ATHEN316@ 
ITFI<>AANDJ<>ATHEN318¢4 
IFI=BANDJ <> ATHEN31892 

IF I=BANDJ=CTHEN3182 

IFI< >AANDJ=CTHEN318@ 

IFK< >BORI=BTHEN3166 
IFH<>BANDJ <> BTHEN3189 
IFH=AANDJ<> BTHEN318@ 
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3163 IFH=AANDJ=CTHEN3189 srem 186 
3164 IFH<> BANDJ=CTHEN31890 srem 249 
3165 IFH<>BANDJ=ATHEN318@4 srem 248 
3166 IFK<>CORJ=CTHEN3179 srem 213 
3167 IFH<>CANDI<>CTHEN31890 srem 57 
3168 IFH=AANDI=BTHEN3189 srem 189 
3169 IFH=AANDI<>CTHEN31806 srem 252 
3178 IFH=BANDI=ATHEN318@ srem 182 
3171 IFH=BANDI<>CTHEN3189@ srem 246 
3172 IFH<>CANDI=ATHEN3189 srem 246 
3173 IFH<>CANDI=BTHEN3189 srem 248 
3179 GOTO49068 srem 299 
3188 WCP=WCP+1l srem 57 
3181 GOTO4909 srem 202 
3185 RCP=RCP+]1 srem 52 
4900 RETURN srem 164 
4930 READPP srem 131 
4050 IFPP=-1 THEN412¢4 srem 137 
4869 READDD srem 110 
4070 POKES, PP:POKET, PP:POKEU, PP srem 44 
4980 FORNN=1 TODD: NEXTNN srem 253 
4999 POKES ,%9:POKET,@:POKEU,9 srem 222 
4190 GOTO04039 srem 197 
4128 POKES ,@:POKET,@:POKEU,@ srem 216 
4149 RESTORE :GOT042900 srem 38 
415@ DATA209,100,209,50,209,50,209,5@ :rem 68 
4168 DATA219,100,2909,1900,225,1990,232,500 srem 200 
41998 DATA-1 srem 790 
4200 FORY=1T0O18:PRINT:NEXT:PRINT"YOU DID IT IN";DI-48;"TRIES! 

7 srem 85 
4218 GOTO5919 srem 198 
5808 POKES,N:POKET,N:POKEU,N:FORZZ=1TO/900 :NEXT srem 38 
5805 POKES, @:POKET,@:POKEU ,0@:FORY=1TO20:PRINT:NEXT srem 8 
5818 X=SC+484 : V=CL+484 : P=9 srem 227 
5820 PRINT"SOLUTION": srem 80 
5830 POKEX+P,E:POKEV+P ,A-1l srem 64 
5940 P=P+2 srem 3 
5850 POKEX+P,E:POKEV+P, B-l srem 67 
5868 P=P+2 srem 5 
50870 POKEX+P,E:POKEV+P ,C-1 srem 792 
5880 P=P+2 srem 7 
5890 POKEX+P,E:POKEV+P,D-1 srem 73 
5180 GETBS :IFBS=""THEN510@ rem 177 
5118 GOTO1SD srem 145 
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| Maneuver 


Are you just a little weary of shooting down alien craft, dodging bombs, and 
playing all those cloned and recloned action games? This game will stimulate 
the gray matter and give quiet satisfaction if you manage to maneuver things 
to a successful conclusion. 

This isn’t a game of pure chance or mechanical skill laced with random 
numbers or happenings, but one where you have full control. You have all 
the data before you, and only your mind and cleverness can you resolve the 
situation. This game is similar to a card game conceived by Martin Gardner. 


Thinking and Planning 
The only random aspect of the game occurs when the 52 shuffled cards are 
laid out face up, left to right, a row at a time, in eight columns. From then 
on it’s up to you. The first four columns each contain 7 cards, and the last 
four columns contain 6. This is called the board. The object of the game is to 
maneuver these cards into numeric order (ace to king) into the four piles 
above the board, one for each suit. 

Below the board are four cells called temporary cells. Only one card at a 
time can occupy a temporary cell. Thus, a maximum of only four cards can 
be held in these cells at any one time. 

Only cards from the bottom of each column and those in temporary cells 
can be moved, and they can be moved only one at a time. When a card is 
taken from a board column, the next card in that column becomes accessible. 


Moving Cards 
To pick up a card, use the joystick to place the green rectangle completely 
over the desired card and press the fire button. The green rectangle will dis- 
appear leaving the card visible again. The card can now be maneuvered to 
the desired location by using the joystick. When the card is in place, press 
the fire button again. The green rectangle will reappear over the card, and it 
is then free to move to the next card to be picked up. 

When the fire button is pressed, the green rectangle will either disappear 
or reappear depending on the situation, and a beep will sound indicating 
that a legal move has been made. However, if you have made a mistake or 
are trying to cheat, a berating tone will be heard and the screen will remain 
unchanged. 

There are only three places a card can be moved to. A card may be 
placed in its proper pile above the board, but only if it’s the next card in nu- 
meric order. It may be placed in one of the temporary cells providing that it 
is vacant. Or it may be placed at the bottom of one of the board columns, 
but only if the card currently at the bottom is the next card of the same suit 
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(for example, a four of hearts can be placed on the five of hearts). If one of 
the board columns becomes empty, then any accessible card can be placed 
there as a new Starting card. 

Make sure that when you place a card in one of the four piles above the 
board that the suit of the card is placed over the suit which is already 
printed there. 

When the program is running, it will take about 40 seconds to “shuffle” 
the cards. It will then lay out the cards for you. Unfortunately, since the 
VIC-20 has only 22 print positions across, the last two columns are squeezed 
together without an intervening space. But this does not detract from the 
mental challenge of the game. 

The program constantly scans to see if kings top the four piles above the 
board. When you achieve your goal, the computer will immediately 
congratulate you and begin shuffling the cards for another game. If you find 
yourself hopelessly stuck, press any key on the keyboard, and the cards will 
be shuffled for another game. 


Maneuver 
For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 
1 DIMC$(52) :POKE36878,15:PRINT"{CLR}" srem 212 
1@ FORX=1T052:C%(X)=X :NEXTX srem 201 
58 PRINT"{CLR}{4 SPACES}** *MANEUVER***" : PRINT srem 239 
6@ PRINT"{4 SPACES}{BLK}X{4 SPACES}{RED}Z{4 SPACES}S 
{4 SPACES} {BLK}A" srem 185 
76 PRINT ae srem 244 
80 FORX=1T052 :A=INT(RND(1)*(53-X) +X) :B$=C%(X) :CB(X)=C8(A) :CB ( 
A)=B% srem 173 
85 PRINT" {BLK}"; :IFC$(X)>26THENPRINT"{RED}"; :rem 224 
99 S=INT((C%(X)-1)/13)+1 :N=C8(X) -13*(S-1) srem 119 
198 IFS=l1THENSS="X " srem 224 
118 IFS=2THENSS="A " :rem 203 
120 IFS=3THENSS$="Z " srem 230 
138 IFS=4THENSS="S "“ srem 225 
148 NS=RIGHTS(STRS(N),1) srem 8@ 
160 IFN=1THENNS="A" srem 69 
178 IFN=10THENNS="T" srem 137 
18@ IFN=11THENNS="J" s:rem 129 
198 IFN=12THENNS="Q" :rem 138 
200 IFN=13THENNS="K" srem 125 
210 PRINTNS+SS$; :IF(X+1)/8=INT((X+1)/8)THENPRINT" {LEFT }"; 
srem 97 
215 IFX/8=INT(X/8) THENPRINT"{LEFT}"; srem 246 
220 NEXTX :FORX=1T0O11:PRINT:NEXTX srem 175 
230 PRINT" {RVS}{BLU}{3 RIGHT}{2 SPACES}{3 RIGHT}{2 SPACES} 
{3 RIGHT}{2 SPACES}{3 RIGHT}{2 SPACES}" srem 243 
249 PX=0:PY=12 srem 46 
245 H1=16@8 :H2=1690:HC1=5 sHC2=5 srem 65 
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and Luck 
ZS=7680+22* PY+ PX : ZC=38400+22* PY+PX :rem 211 
S1=PEEK(ZS ) :S2=PEEK(ZS+1) :Cl=PEEK(ZC) :C2=PEEK(ZC+1) 

srem 80 
POKEZS , Hl : POKEZS+1 , H2 : POKEZC,HC1l : POKEZC+1,HC2 srem 197 
GOSUB376 : I FFB=1THEN43@ srem 57 
GETAS : I FAS<>""THEN82@ srem 151 
IFPEEK (7727 )=11ANDPEEK(7732)=11ANDPEEK( 7737 )=11ANDPEEK (77 
42 )=11THEN840 srem 28 
IFXD=6 ANDYD=8 THEN28@ srem 217 
POKEZS, S1 : POKEZS+1 ,S2:POKEZC,Cl : POKEZC+1 ,C2 srem 235 
PX=PX+XD3: PY=PY+ YD srem 121 
IFPX<@ THENPX=@ s:rem 124 
IFPX> 26 THENPX=26 srem 227 
IFPY<2 THENPY=2 srem 132 
IFPY> 21THENPY=2] srem 233 
GOTO25@ s:rem 105 
POKE37154,127 :J$=PEEK( 37152) AND128 :POKE37154,255 s:rem 148 
J%=J%OR( PEEK( 37137) AND127) srem 144 
XD=SGN(J%AND16 ) -SGN(J%AND128 ) srem 154 
YD=SGN(J%AND4)—-SGN(J%AND8) srem 253 
FB=1-SGN (J%AND32) srem 152 
RETURN :rem 118 
IFHC1=5 THEN70@ :rem 26 
IFPY=21 ANDS1=1690ANDS2=1690THEN689 srem 148 
IFPY=21THEN660 srem 64 
IFPY<>2THEN55@ srem 790 
IFS2<>H2THEN660 srem 199 
IFS1=32ANDH1=1 THEN68@8 srem 215 
IFS1=1ANDH1=59THEN689@ srem 216 
IFS1=57ANDH1=29 THEN6 86 :rem 17 
IFS1=28ANDH1=198THEN682 srem 254 
IFS1=198ANDH1=17 THEN68@ s:rem 5 
IFS1=17ANDH1=11THEN680 srem 7 
IFS1=> 58ANDS1 <=56ANDS1+1=H1 THEN6 8G srem 252 
GOTO660 s:rem 110 
IFS1<>320RS2<> 32 THEN660 srem 92 
IFPY< 4THEN6604 srem 14 
IFINT( PX/3)<>PX/3ANDPX<> 20 THEN660 srem 23 
IFPY=4THEN689 srem 19 
IFPEEK(ZS-21 )<>H2THEN66@ :rem 159 
G=PEEK(ZS-22) :I FG=11ANDH1=17 THEN6890 srem 59 
IFG=17 ANDH1=19THEN689 srem 201 
IFG=19ANDH1=290 THEN689 srem 196 
I FG=58 ANDH1=1 THEN688 s:rem 152 
IFG=28 ANDH1=5 7 THEN680 srem 209 
IFG=> 51 ANDG<=57 ANDG=H1+1 THEN68@ srem 74 
POKE36874 ,160 :FORC=1TO15@:NEXT: POKE36874,15@ srem 85 
FORC=1T0O15@ :NEXT : POKE36874 ,9 :GOTO28@ srem 197 
POKE36876,235 :S1=H1] :S2=H2:Cl=HC1 :C2=HC2 srem 219 
H1=169 :H2=160 :HC1=5 :HC2=5 : FORC=1TO15@ : NEXT: POKE36876 ,8:GO 
TO27@ srem 168 
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and Luck 

700 IFPY<4THEN669 srem 10 
710 IFPY<>21THEN77@ srem 122 
720 IFNOT( PX=30RPX=8ORPX=130RPX=18) THEN660 srem 228 
730 IFC1=6ORC2=6THEN669 srem 100 
740 POKE36876, 235:H1=S1 :H2=S2 :HC1=Cl :HC2=C2 srem 216 
758 S1=160:S2=160:C1l=6 :C2=6 :FORC=1TO15@ :NEXT srem 78 
768 POKE36876,8:GOTO27@ srem 66 
770 IFNOT(S2=650RS2=830RS2=880RS 2=99 ) THEN660 srem 212 
780 I FPEEK(ZS+22) <> 32ORPEEK(2ZS+23) <> 32 THEN660 srem 189 
798 POKE36876, 235 :H1=S1 :H2=S2 :HC1l=Cl :HC2=C2 srem 221 
800 S1=32:S2=32:Cl=1:C2=1 : FORC=1TO159 :NEXT srem 220 
818 POKE36876,98:GOTO27@ srem 62 
820 PRINT" {CLR}";SPC(224);"YOU HAVE LOST!" srem ll 
830 PRINT" { DOWN } YOU NEED TO PRACTICE!":FORX=1TO200@0 sNEXT: GOTO 

56 srem 66 
848 PRINT" {CLR} "eSPC(224) ;"CONGRATULATIONS!" srem 39 
858 PRINTSPC(26);"YOU HAVE WON!1!" srem 159 
860 FOR X=1 TO 38090:GOTO5@ srem 137 
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| Battleship 


“Battleship” is a version of the traditional game in two parts for the un- 
expanded VIC and two players. 

The first program introduces this traditional game to the newcomer. The 
second program must be saved using the filename BSHIP.PRG. Tape users 
should delete lines 950 and 960 of Program 1, and change line 945 to 


945 POKE 198,1:POKE 631,131 


Each player starts with four ships hidden on the grid: A battleship is five 
squares long, a cruiser occupies four squares, a destroyer is three squares, 
and a submarine is two. The ships may be located vertically, horizontally, or 
in either diagonal direction. You begin by being permitted to fire five volleys 
per round. Each time your opponent sinks one of your ships, you get one 
less volley per round. The first player to sink his or her opponent’s entire 
fleet is the winner. 

This game differs just a bit from the paper-and-pencil version since the 
computer sets up both battlefields. This adds an extra element of excitement 
to the traditional game. Not only do you not know where your opponent’s 
fleet is hidden, but you don’t know where yours is either, so there’s consid- 
erable suspense as your opponent takes shots. And the computer can lay out 
some very sneaky battlefields. 


Program 1. Battleship 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


2 GOSUB5@9 srem 71 
5 X=8174:Y=30728 :Z=580 s:rem 208 
19 V=36878 :N=36877 :S=36874 :S1=36875 srem 182 
26 POKEV,15 srem 121 
38 POKES,128:POKES1,17@2 srem 93 
35 FORT=1TO700 :NEXTT s:rem 24 
49 POKES, 128:POKES1,13@ srem 90 
58 FORM=1 T0900 :NEXTM srem 9 
69 FORB=l15TOOSTEP-.@2 srem 254 
61 POKEV,B srem 99 
62 NEXTB srem 233 
786 POKES ,@:POKES1,@ s:rem 142 
80 FORT=5 80TOOSTEP-1 :POKEV,T/100:POKEN, 200 srem 86 
99 IFT=ZTHENGOSUB20G s:rem 36 
95 IFT<1@THENPOKEN ,9:GOTO699 srem 255 
196 NEXTT:POKEN,9:END srem 72 
200 POKEX,93:POKEX+Y,@:Z=Z-50 srem 15 
219 POKEX+22 ,32:X=X-22 s:rem 242 
220 RETURN :rem 116 
588 PRINT" {CLR}{9 DOWN}{1@ SPACES}£2 FJ" :rem 8 
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and Luck 
518 PRINT"{9 SPACES}{RVS}£{2 SPACES} K*}{OFF}" srem 147 
520 PRINT"KS @3K*}{RVS}{4 SPACES} {OFF}£K8 @9":RETURN: rem 238 
698 POKE36879, 42 srem 104 
618 PRINT" {WHT} {CLR}{8 DOWN}" srem 136 
628 PRINT"{5 SPACES} {RVS}£LK*FLK*FLK*FLK*FLK*FLK*}F {OFF }" a 
srem 
638 PRINT"{4 SPACES} {RVS}£{12 SPACES}K*}{OFF}" srem 150 
648 PRINT"{4 SPACES}K*3{RVS} BATTLESHIP! {OFF }£" :rem 168 
658 PRINT"{4 SPACES}{RVS}£{12 SPACES}K*}{OFF}" srem 152 
668 PRINT"{5 SPACES}K*I£LK*ILE*FLE*FLK* JLEK* FL" srem 157 
678 POKEN, 220 > :rem 218 
688 FORL=15TO@STEP-1 :rem 225 
698 POKEV,L srem 156 
788 FORM=1T03900 :NEXTM srem 53 
719 NEXTL srem 35 
728 POKEV,@:POKEN,@ srem 141 
758 PRINT"{2 DOWN} INSTRUCTIONS ?( Y/N) srem 136 
768 GETAS :IFAS=""THEN76@ srem 93 
770 IFAS="N"THENPOKE36879, 27:PRINT" {CLR} {BLU} ":GOTO938:rem 49 
780 IFAS="Y"THEN89O srem 52 
798 GOTO760 srem 118 
880 POKE36879,27:PRINT"{CLR} {BLK}" srem 155 
810 PRINT"BATTLESHIP! IS A GAME FOR 2 PLAYERS." srem 217 
828 PRINT" {DOWN}EACH PLAYER HAS HIS{3 SPACES}OWN BATTLE ZONE 
{SPACE}AND A FLEET OF FOUR SHIPS." srem 16 
838 PRINT" {DOWN}A BATTLESHIP IS FIVE{2 SPACES}GRID SQUARES LO 
NG, srem 248 
848 PRINT" {DOWN}A CRUISER IS FOUR," :rem 224 
858 PRINT" {DOWN}A DESTROYER IS THREE," :rem 193 
868 PRINT" {DOWN}]AND A SUB IS TWO." srem 66 
878 PRINT"{2 DOWN}HIT ANY KEY" srem 72 
888 GETAS : I FAS=""THEN882 s:rem 99 
899 PRINT" {CLR} {DOWN}EACH PLAYER BEGINS{4 SPACES}WITH VOLLEYS 
OF FIVE{2 SPACES}SHOTS." srem 148 
998 PRINT"{DOWN}IF YOUR OPPONENT SINKSA SHIP, YOU LOSE ONE 
{2 SPACES}SHOT." srem 115 
918 PRINT" {DOWN}THE WINNER IS THE{5 SPACES}FIRST PLAYER TO SI 
NK{2 SPACES}HIS OPPONENT'S ENTIRE FLEET." srem 16 
920 PRINT" {DOWN}FIRE BY ENTERING GRID COORDINATES (H7,B6, 
{3 SPACES}ETC. ) :rem 131 
938 PRINT" {DOWN}WHEN YOU'RE READY TO{2 SPACES}PLAY, PRESS RET 
URN" zrem 82 
949 GET RS:IF RS="" THEN 949 :rem 127 
945 PRINT"{CLR}{BLK} PLEASE WAIT":POKE 198,2:POKE 631,13:POKE 
{ SPACE} 632,13 srem 21 
958 PRINT" {HOME} {WHT}":PRINT "{2 DOWN}LOAD";CHRS(34);"BSHIP.P 
RG": CHRS (34);",8" srem 171 
969 PRINT"{5 DOWN}RUN":PRINT" {HOME}":END srem 233 
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and Luck 
Program 2. Bship.prg 

For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 
5 POKE648,28 srem 156 
19 POKE56, 28:CLR srem 172 
28 DIML%(23),P(5,5,2),B(2),C(2),D(2),8(2),U(5),V(4),W(3),Y(2) 
:R=7795 srem 181 
38 GOSUB889:PRINT" {CLR} {BLK} ":GOSUB890@ srem 251 
50 E=13:F=1 s:rem 6 
60 PRINT" {CLR}":CO=30720 :N(1)=5:N(2)=5 srem 200 
76 ZX=Z2X+1 srem 102 
88 FORT=8TO9 srem 236 
996 PRINTT"{RVS}{10 SPACES} {OFF}" srem 50 
190 NEXTT srem 36 
118 PRINT"{3 SPACES }ABCDEFGHIJ" srem 26 
1290 IFZX=1THENGOSUB899 :GOTO6G srem 98 
136 PRINT"{2 DOWN}" srem 135 
149 FORZ=1T04 s:rem 27 
158 ONZGOTO160,179,180,190 srem 172 
169 L=5 :GOTO20@ srem 99 
178 L=4 :GOTO2900 srem 92 
188 L=3:GOTO2960 srem 994 
198 L=2 srem 85 
208 X=INT(RND(1)*207)+R srem 9 
218 IFPEEK(X) <> 168THEN290@ srem 194 
220 A=INT(RND(1)*4)+1 srem 1190 
230 ONAGOTO249, 250, 260,278 srem 142 
246 I=1:GOTO28G srem 94 
258 I=21 :GOTO280 srem 141 
260 I=22:GOTO28¢9 srem 143 
278 I=23 srem 132 
288 FORM=1TOL s:rem 43 
2989 P(M,Z,E)=xX srem 21 
306 IFPEEK(X) <>168THEN20@ srem 194 
305 IFI=lLORI=22 THEN320 srem 45 
310 IFPEEK(X+1) <>16QANDPEEK (X+22) <>16Q0THEN20@0 srem 96 
320 POKEX, 224:X=X+I srem 123 
338 NEXTM srem 34 
340 NEXTZ srem 48 
358 PRINT" {HOME }" srem 124 
360 FORT=1TO192 srem 704 
370 IFE=2THEN399 srem 168 
388 PRINT"{3 RIGHT} {RVS} {BLK} LLLLLLLLLL{OFF}":GOTO490:rem 246 
398 PRINT"{3 RIGHT} {RVS}{GRN}LLLLLLLLLL{OFF} {BLU}" srem 157 
400 NEXTT srem 39 
419 IFE=1 THENE=2 :R=7193 :GOSUB8984 :GOTO13@ srem 176 
426 PRINT" { DOWN} PLAYER"F"TURN"K+1; srem 250 
430 K=K+1l :rem 198 
435 POKE198,@ srem 201 
4490 GETAS :I FAS=""THEN44@ srem 83 
458 IFASC(AS)<650RASC(AS )> 74THEN449 srem 254 
46@ PRINTAS; :GOTO48@0 :rem 214 
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478 GOTO0448 :rem 198 
488 GETBS :IFBS=""THEN48@ srem 93 
498 IFASC(BS)<480RASC(BS)>57THEN48@ :rem 6 
5808 PRINTBS :A=VAL(BS) :GOTO52@ z:rem 228 
5186 GOT848G s:rem 76 
528 G=ASC(AS)-65 srem 64 
530 H=R+G+(22*A) srem 44 
549 FORT=1T05 srem 26 
550 IFH=P(T,1,E) THENP(T,1,E)=0:Q=2 :CC=2:U(E)=U(E)+1:GOTO61@ 
s:rem 172 
555 IFPEEK(H)=2THEN62@0 s:rem 34 
560 IFH=P(T,2,E) THENP(T,2,E)=0:Q=3 :CC=7:V(E)=V(E)+1:GOTO61@ 
srem 183 
565 IFPEEK(H)=3THEN62@6 srem 36 
5708 IFH=P(T,3,E) THENP(T,3,E)=0:Q=4:CC=5 :W(E)=W(E)+1:GOTO610 
srem 187 
575 IFPEEK(H)=4THEN620 s:rem 38 
5828 IFH=P(T,4,E)THENP(T,4,E)=0:Q=19:CC=0:Y(E)=Y(E)+1:GOTO612 
z:rem 243 
585 IFPEEK(H)=19THEN620 s:rem 93 
598 NEXTT srem 49 
609 POKEH, 204: POKEH+CO,3:GOTO62G :rem 167 
618 GOSUB1299 : POKEH,Q:POKEH+CO,CC srem 40 
628 IFU(E)=5ANDB(E)=0THENN(F)=N(F)-1:B(E)=1 srem 176 
630 IFV(E)=4ANDC(E)=@THENN(F)=N(F)-1:C(E)=1 srem 179 
649 IFW(E)=3ANDD(E)=0THENN(F)=N(F)-1:D(E)=1 :rem 182 
658 IFY(E)=2ANDS(E)=8THENN(F)=N(F)-1:S(E)=1 srem 214 
660 IFB(E)+C(E)+D(E)+S(E)=4THEN1OOO s:rem 129 
688 IFK=N(E) ANDR=7193THENR=77085 :GOTO76@ s:rem 106 
698 IFK=N(E) ANDR=7795 THENR=7193 :rem 97 
700 IFK=N(E) THENK=9 : TT=E: E=F: F=TT: FORT=1TO1OOO :NEXTT: GOSUB8BG 
:rem 170 
718 PRINT" {UP} PLAYER"F"TURN"K+1"{2 SPACES}{2 LEFT}"; srem 259 
720 GOTO438 s:rem 105 
898 SW=PEEK( 648) :rem 151 
810 IFSW=28 THENSW=38 : TS=159:GOTO9BG s:rem 178 
820 IFSW=30 THENSW= 28 : TS=22 :GOTO9BD :rem 129 
8398 STOP :rem 225 
988 POKE648, SW: POKE36866,TS s:rem 137 
919 FORJ=8T023 s:rem 64 
9290 VS=PEEK(J+217) : POKEJ+217,L%(J) srem 182 
930 L%(J)=VS srem 142 
940 NEXTJ srem 38 
958 RETURN srem 126 
1808 PRINT"{2 DOWN}GAME OVER, PLAYER"F"WON":END :rem 146 
1286 POKE36878,192 srem 143 
1219 FORT=230TO1 28STEP-1 : POKE36876,T s:rem 160 
1220 NEXTT :rem 88 
1238 POKE36876 ,@:POKE36877, 200 :rem 149 
124@ FORT=1L5TOOSTEP-.@G5 srem 116 
1258 POKE36878,T:NEXTT srem 84 
1266 POKE36877,®@:RETURN s:rem 125 
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Flipper 


If you’re looking for a challenge to your mental dexterity and a change of 
pace from bombs and gobblers, then ‘‘Flipper,’”’ for the unexpanded VIC, is 
for you. You can play against yourself or against a friend. Play a round once 
or replay each round until you’ve mastered it—or until you've given up. 
Simple but devilish! 

The screen presents you with a list of nine numbers and asks, ““WHICH 
PAIR TO FLIP?” Your challenge is to get the list in numeric order, putting 
the lowest in the first position and the highest in the ninth position, by flip- 
ping as few pairs as possible. Once the numbers are in order, the computer 
will tell you how many turns you took and how that score compares with 
other turns, if any, with the same set of numbers. You’re also offered the op- 
tion of repeating the same set of numbers as often as you wish or of going 
on to a new set anytime. When the computer asks, “TRY AGAIN WITH THE 
SAME NUMBERS?” type in either Y or N and hit RETURN. Start the pro- 
gram with RUN. 


Flipper 
For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 
1896 DIMM(19) :DIMW(9) z:rem 95 
118 PRINT" {CLR}" srem 246 
200 FORN=1T0O9 :rem 17 
2180 M(N)=INT( RND(@)*9+1) :W(N)=M(N) :rem 117 
220 IFN>1ANDM(N)=M(N-1 ) THEN21@ :rem 232 
230 NEXTN srem 34 
248 cs="" s:rem 126 
258 GOSUB1BOG :rem 216 
308 T=O0:IFCS<>"Y"THENZ=9 srem 145 
318 PRINT" { HOME }":FORN=1T04:PRINT:NEXT:PRINT, "WHICH PAIR",,,, 
>SPC(1);"TO FLIP?":PRINT,,, srem 1988 
328 INPUTAS : IFVAL(AS )=8ORVAL(AS ) >9GOTO319 :rem 215 
338 PRINT,,,:INPUTBS :IFVAL(BS) <=9ANDVAL(BS ) >=1GOTO358:rem 214 
348 PRINT" { HOME}":FORT=1TO18:PRINT, :NEXT:GOTO33@ srem 223 
358 A=VAL(AS) :B=VAL(BS) srem 2 
368 T=T+1:M(19)=M(A) :M(A)=M(B) :M(B)=M(19) :rem 187 
370 POKE7685+44*A,48+M(A) :POKE38405+44*A,6 :rem 16 
3880 POKE7685+44*B, 48+M(B) :POKE38405+44*B,6 srem 20 
400 FORP=2T09:IFM(P) <M(P-1)GOTO312 srem 34 
4198 NEXT srem 212 
420 CS="":GOSUB1OGD :rem 249 
500 PRINT" {HOME }":FORN=1T011:PRINT, :NEXT:PRINT"YOU WON IN",,, 
,' "3:T;"TURNS" :rem 248 
5@5 IFZ=@ORZ=TTHEN525 z:rem 71 
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518 IFZ>TTHENAS="BETTER" | srem 236 
515 IFZ<TTHENAS="WORSE " srem 185 
520 PRINT,,, "YOUR SCORE",,,,"{3 SPACES}WAS",,,,ABS(Z-T) ;"TURN 
(S)",,,,AS;" THAN",,,"YOUR BEST" srem 184 
525 IFZ=TTHENPRINT,,, "IT WAS THE",,,, "SAME SCORE",,,,"AS BEFO 
RE": FORN=1T0O4 :PRINT:NEXT srem 200 

530 IFZ<>O8THENPRINT, , :GOTO54@ srem 75 
535 FORN=1T0O10:PRINT:NEXT: I FZ=OTHENPRINT,, srem 40 
549 IFZ=@ORZ>TTHENZ=T srem 150 
545 PRINT"TRY AGAIN WITH THE", "SAME NUMBERS?" srem 220 
558 INPUTCS : IL FCS="N"THEN1194 srem 81 
560 IFCS<>"Y"THENPRINT" { HOME }":FORT=1TO19 :PRINT:NEXT:GOTO55@ 
srem 248 

565 GOSUB1OOS srem 225 
578 GOTO38 srem 194 
1980 PRINT" {CLR}":FORN=1T09: IFCS="Y"THENM(N)=W(N) srem 54 
1918 PRINT" {HOME }";SPC(33);"{RVS}FLIPPER" srem 33 
1820 POKE7680+44*N, 48+N : POKE38400+44*N, 6 srem 184 
1938 POKE7680+44*N+1,46 :POKE38400+44*N+1 ,6 :rem 246 
1948 PRINT" {HOME }";SPC(33);"FLIPPER" :rem 18 
1858 POKE7685+44*N,48+M(N) :POKE38405+44*N,6 :sNEXT srem 220 
1960 RETURN srem 167 
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Poker Challenge 


“Poker Challenge’”’ utilizes the excellent character set of the VIC to generate 
a video version of poker solitaire which can be run on the unexpanded VIC. 
Depending upon player options, from 25 to 30 cards are dealt face up, 


one at a time, and are positioned on a five row X five column array after the 


input of a two-digit row/column number. The object is to produce the best 


ten poker hands composed of the five rows and five columns. Once placed in 
position, a card may not be moved, but up to 5 cards can be discarded at the 


time they are dealt by assigning them to row 0, column 0. When 25 cards 
have been played, the program reports the score and type of poker hand for 
each of the five rows and five columns, as well as your total score. 


The points awarded the various poker hands are displayed on the screen 
during play, because the relative ranking differs slightly from standard poker. 


The scoring of each hand is calculated in a subroutine beginning at line 
2200. This scoring reflects the actual odds for that game. Changes in the 
scoring can be made by altering lines 1200, 1210, and 2400-2480. 
The program is a tight fit on the unexpanded VIC, so leave no un- 

necessary space. The game is a challenge for all members of the family. A 
score of 50 can be considered a good score. 


Poker Challenge 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


DIM YD%(5),2Z2D%(5),MY%(5,5),MZ%(5,5),DT%(4,13) srem 1890 
PRINT" {CLR}":H=5 :rem 187 
FORR=1T05 :FORC=1T05 :MY%(R,C )=@:CR=5 :X1=146 :X2=131 :X3=176+R 
:X4=176+C :GOSUB1 880 :NEXTC s:rem 238 
NEXT R rem 246 
GOSUB 12008 rem 169 
FORI=1T04 :FORJ=1T013 :DT%(1I,J)=O8:NEXTJ,I rem 164 
DX%=@0 :XY=RND(-TI) rem 189 
IF DX%=25 THEN 27 rem 245 
Y%$=INT(RND(1)*4)+1:2Z2%=INT(RND(1)*13)+1 srem 3 
IF DT%(Y%,Z%)<>@ THEN 19 rem 107 
DTS(Y%,Z%)=1 :rem 8 
GOSUB 15982 rem 17@ 
GOSUB 1300 rem 169 
GOSUB 1802 rem 175 
MY%$(R,C)=Y%$:MZ%$(R,C)=Z% rem 211 
GOTO 18 srem 10 
R=6 :C=7 :CR=1:TT=0:GOSUB 1800 rem 46 
FOR KK=1T0O19 srem 89 
IF KK>5 THEN 40 rem 150 
FOR KL=1T0O5 :rem 39 
YD%(KL)=MY%(KK,KL) :ZD%(KL)=MZ%(KK,KL) :NEXT KL rem 1804 
GOSUB 2209 rem 169 
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and Luck 
33 IFKK=1THEN PRINT" {HOME} { BLK} "TAB(12-—(WT<1@));WT:GOTO 37 
srem 176 
34 MM=3*(KK-1)-1 :rem 62 
35 PRINT" {HOME}":FOR LI=l TO MM:PRINT:NEXT srem 237 
36 PRINT TAB(12-(WT<190));WT srem 45 
37 PRINT" {HOME }":FORL=1T0O16 :PRINT:NEXT srem 115 
38 PRINT"ROW" :KK;"{15 SPACES}" :PRINTAS:PRINT"HIT ANY KEY 
{18 SPACES}":GOSUB250@ srem 242 
39 NEXT KK srem 65 
4@ FOR KL=1TO5 srem 40 
41 YD%(KL)=MY%(KL,KK-5) :ZD%(KL)=MZ%(KL,KK-5) :NEXT KL :rem 45 
42 GOSUB 2200 srem 17@ 
43 PRINT" {HOME }":FORLI=1T0O14:PRINT:NEXT LI srem 76 
44 PRINT TAB(-(WT<10)+3* (KK-6) ) ;WI:PRINT srem 98 
45 PRINT"COLUMN" ;KK-5;{13 SPACES}" srem 152 
46 PRINT A$:PRINT"HIT ANY KEY{1@ SPACES}":GOSUB 25@0:NEXT KK 
srem 173 
47 PRINT" {HOME}":FOR LI=1TO16:PRINT:NEXT :rem 189 
48 PRINT"YOUR TOTAL SCORE";TT :rem 111 
49 PRINT"PUSH ANY KEY FOR A{2 SPACES}" srem 119 
5@ PRINT"NEW GAME{11 SPACES}":PRINTTAB(18)"{3 SPACES}" 
srem 214 
51 GOSUB 25962 s:rem 173 
52 CLR:GOTO ll srem 29 
1200 PRINTTAB(17)"{BLK} PTS. ":PRINTTAB(17)"SF38":PRINTTAB(17)" 
4K16":PRINTTAB(17)" S12" srem 66 
1210 PRINTTAB(17)"FH10":PRINTTAB(17)"3K 6":PRINTTAB(17)" F 5" 
srem 121 
1215 PRINTTAB(17)"2P 3":PRINTTAB(17)"1P 1" srem 44 
1226 RETURN srem 165 
1300 PRINT" { HOME }":FORJ=1T0O19:PRINT:NEXT :rem 206 
1310 IFH<O@THENH=¢ srem 236 
1328 PRINTH;"DISCARDS REMAIN":PRINT" RC=0@ FOR DISCARD" 
srem 65 
1330 PRINT"{5 UP} YOUR NEXT CARD IS":PRINT" TO POSITION IT 
{4 SPACES} {RVS} {GRN}RC{ OFF} {BLK}" :rem 88 
1348 INPUT " HIT 2 DIGIT RC #";RCS srem 208 
1358 IFRCS="Q0"THEN 1406 srem 230 
1360 RS=LEFTS(RCS,1):R=VAL(RS) s:rem 166 
1378 CS=RIGHTS(RCS$,1):C=VAL(CS) srem 205 
1380 IF MY%(R,C)<>@GOTO1380 . srem 223 
13980 RETURN srem 173 
1489 H=H-1 srem 240 
1418 IFH>=0 THENDX%=DX$-1 :GOTO18 srem 112 
1428 GOTO 1390 srem 196 
1588 DX%=DxX3+1 srem 225 
1518 IF Y%<3THENCR=G srem 116 
1520 IF Y%>2 THENCR=2 srem 124 
1538 IF Z%=1 THEN X1=129 srem 214 
1549 IF Z%>1 AND Z%$<1@{5 SPACES}THEN X1=Z%+176 srem 115 


1558 
1560 
1576 
158g 
1599 
1680 
1618 
1626 
1632 
164g 
‘1656 
1880 
1810 
1826 


2200 
2219 
2215 
2226 
2230 
2245 
2247 
2250 
2260 
2285 
2296 
2295 
2300 
2305 
23198 
2315 
2326 
23390 
2335 
2348 
2345 
23598 
23608 
2365 
2375 
2388 
2385 
2396 
2399 


240806 
2410 


2420 
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IFZ%=10THENX1=152 srem 4 
IFZ%=11 THENX1=138 srem 12 
IFZ%=12THENX1=145 srem 190 
IFZ%=13THENX1=139 s:rem 15 
X2=168 :X3=160 srem 198 
IFY%=1THENX4=216 s:rem 211 
IFY%=2 THENX4=193 :rem 217 
IFY%=3THENX4=218 srem 217 
IFY%=4 THENX4=211 :rem 212 
R=6 :C=7 :GOSUB1890@4 srem 4 
RETURN :rem 172 
A= 3842 3+3* (C-1 ) +66* (R-1 ) :B=7783+3* (C-1)+66*(R-1) srem 77 
POKEA, CR: POKEA+1 , CR: POKEA+22,CR: POKEA+23,CR srem 183 
POKEB, X1 :POKEB+1,X2 :POKEB+22,X3 :POKEB+ 23 ,X4:RETURN 

srem 172 
J=9 sJF=12 :JS=104 srem 90 
FOR K=1T05 srem 61 
FOR M=1T0O5 srem 68 
IFZD%(M)=ZD%(K) THEN J=J+1 srem 174 
NEXT M:NEXT K :rem 23 
ON -—(J=5) -2* (J=7) -3* (J=9) GOTO 2256,24198,2420 srem 192 
ON -(J=11) -2*(J=13)-3*(J=17) GOTO 2440 ,2458,2478 :rem 85 
FORW=2TO5 :I FYD% (W) <> YD% (1) THENJ F=@ :rem 1907 
NEXT W z:rem 96 
FOR K=1TO1@0 srem 117 
FOR M=1TO5 s:rem 71 
IF ZD%(M)=KTHEN 2310 srem 63 
NEXT M srem 8l 
NEXT K s:rem 84 
IF K=l1 THEN 2340 srem 6 
FOR M=1T05 : 1 FZD% (M) >K+4THEN2335 srem 83 
NEXT M srem 83 
J=JS+JF:GOTO 2399 srem 241 
=JF:GOTO 2399 srem 46 
TL=9 srem 214 
FORM=1T05 : IFZD%(M)>5THEN2365 s:rem 228 
NEXT M :rem 86 
J=J S+JI F :GOTO2399 srem 244 
FORM=1T0O5 : I FZD%(M)<18THENTL=TL+1 srem 25 
NEXT M srem 93 
IF TL=l1 THEN 2398 srem 193 
J=JF :GOTO2399 s:rem 51 
J=JS+JF:GOTO2399 srem 247 
ON ~(J=5) -2* (J=10) -3* (J=12) -4*(J=22) GOT02488, 2460, 2438, 2 
480 | srem 226 


WT=0 :AS="NOTHING; @@ POINTS{3 SPACES }":RETURN :rem 167 


WT=1:TT=TT+1:AS="ONE PAIR; Ql POINT { 3 SPACES }": RETURN 
srem 113 

WT=3 : TT=TT+3 :AS="TWO PAIR: 83 POINTS{2 SPACES}":RETURN 
s:rem 227 
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2430 wWr=5:TT=TT+5 :AS="FLUSH;: 85 POINTS{5 SPACES}":RETURN 
srem 70 
2440 WT=6:TT=TT+6 :AS="3 OF A KIND; 96 PTS. ":RETURN srem 63 
2458 WT=10:TT=TT+10:AS="FULL HOUSE; 1@ POINTS":RETURN:rem 2909 
2460 WT=12:TT=TT+12:AS="STRAIGHT; 12 POINTS{2 SPACES}":RETURN 
srem 135 
2470 WT=16:TT=TT+16:AS="4 OF A KIND; 16 PTS. "“:RETURN:rem 166 
2480 WT=30:TT=TT+390:AS="STR. FLUSH; 30 POINTS":RETURN: rem 204 


2580 GET AS srem 12 
2510 IF{2 SPACES}AS=""THEN 2580 :rem 51 
2520 RETURN srem 169 
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Doug Thorsvik | Heis | 


You have just blasted through the bottom level of an underground vault. 
Your blast into the vault has set off a 90-second fail-safe alarm. You will 
have to blast walls to make your way through the different levels. If you 
don’t make it out in time, the security guards will be upon you. 

There are three levels, each with more moneybags and more alarms. To 
move from one level to another, exit from your present level through the 
opening at the bottom. If you run into an alarm or blast beside one, you'll be 
caught, and the money will be returned to the vault. 

Use the joystick to race through the levels and collect as many $100 
moneybags as possible within the time frame, but don’t be too greedy. 


Heist 
For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 
5 PRINT"{CLR}SETTING UP..." srem 230 
18 FORI=7168T07679 :POKEI, PEEK( I+256989) :NEXT srem 98 
15 POKE36869 ,255 :HS=0 srem 175 
20 READN: IFNTHENFORN=NTON+15 :READA: POKEN, A:NEXT:GOTO20:rem 93 
25 S=@0 :A=374 :B=7724 :C=390720 :W=6 :S1=5 :S2=3:V=9 :Q=1 s:rem 19 
30 PRINT" {CLR} {HOME} {RED} {RIGHT}LEVEL";Q:PRINT"{UP}{13 RIGHT} 
HS:$";HS srem 251 
35 IFW=3 THEN695 srem 136 
48 POKE36879,29 srem 59 
45 GOSUB19@ srem 131 
58 Z=7712:FB=0 z:rem 252 
55 POKEZ, 32 s:rem 132 
68 IFJ4THEN69 srem 8 
65 IFTIS>"9@00130"THEN385 srem 48 
70 IFJ1THENZ=Z+22 :I FPEEK(Z )=61THENZ=Z-22 srem 14 
75 IFPEEK(Z )=42THENZ=Z-22 s:rem 31 
80 IFJ2THENZ=Z-1 :IFPEEK(Z )=61THENZ=Z+1 srem 170 
85 IFPEEK(Z )=42THENZ=Z+1 s:rem 235 
90 IFJ3THENZ=Z-22 :IFPEEK(Z )=610RZ<7680THENZ=Z+22 :rem 30 
95 IFPEEK(Z )=42THENZ=Z+22 srem 31 
190 IFJ@THENZ=Z+1 :IFPEEK(Z )=61THENZ=Z-1 srem 209 
105 IFPEEK(Z )=42 THENZ=Z-1 srem 22 
119 IFPEEK(Z )=45 THENGOSUB385 srem 230 
115 IFPEEK(Z)=44 THENS=S+10@ :GOSUB585 srem 197 
120 IFFBTHENGOSUB445 srem 246 
125 PRINT" {HOME}{21 DOWN}{14 RIGHT}";TI$ srem 115 
138 PRINT" {HOME}{21 DOWN}{7 RIGHT}";S srem 54 
135 POKEZ,593:POKEZ+39728,6 srem 8 
140 IFZ=8108THENS1=S1+5 :S2=S2+2 :W=W+1 :Q=Q+1 :GOTO3@4 srem 104 
145 DD=37154: P1=37151:P2=37152 srem 87 
158 POKEDD,127 :P=PEEK(P2)AND128 :J@=-( P=) :rem 108 
155 POKEDD,255:P=PEEK(P1) srem 216 
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168 Jl=-((PAND8)=9) 

165 J2=-((PAND16)=@) 

178 J3=-((PAND4)=@) 

175 FB=-((PAND32)=@) 

185 GOTO55 

198 FORR=@TO2 : POKE7689+R,42 :NEXTR 
195 FORR=@0TO2 :POKE7689+R+C,6:NEXTR 
288 X=77@2 

205 FORI=1T022 

218 POKEX, 42: POKEX+C ,@:X=X+1 :NEXTI 
215 POKE7712,32 

220 X=7724 

225 FORI=1TO18 

230 FORJ=1TO2 

235 POKEX,42 :POKEX+C,@:X=X-1 :NEXTJ 
240 X=X+24:NEXTI 

245 X=8098 

258 FORI=1T022 

255 POKEX ,42 :POKEX+C,@ :X=X+1 :NEXTI 
260 POKE8198, 32 

265 FORR=0TO2 :POKE8129+R, 42 :NEXTR 
270 FORR=0TO2 : POKE8129+R+C,8:NEXTR 
275 FORI=1T0O169 

288 X=INT(RND(1)*A)+B 

285 IFPEEK(X)=61THEN28@ 

2989 IFPEEK(X)=42THEN28@ 

295 POKEX,61:POKEX+C,@:NEXTI 

308 FORI=1TOS1 

305 X=INT(RND(1)*A)+B 

310 IFPEEK(X)=61THEN3@5 

315 IFPEEK(X)=42THEN305 

320 IFPEEK(X)=45THEN3@5 

325 POKEX,45 :POKEX+C, 2 :NEXTI 

330 POKE7734,32:POKE7756, 32: POKE8086, 32 
335 FORI=1T0OS2 

340 X=INT(RND(1)*A)+B 

345 IFPEEK(X)=61THEN34@ 

350 IFPEEK(X )=42THEN34@ 

355 IFPEEK(X)=45 THEN34@ 

360 IFPEEK(X)=44THEN34@ 

365 POKEX ,44:POKEX+C,5:NEXTI 

378 PRINT" {BLU} {HOME}{21 DOWN} { RIGHT}LOOT:S" 
375 IFW=0THENTIS="GGG000" 

388 RETURN 

385 FORT=1T0O2@ :V=1 :POKE36878,15 
398 FORL=1TO1@ 

395 FORM=258TO24@STEP-1 

400 POKE36876,M 

4095 POKE36879,26:NEXTM 

410 FORM=248T0252 

415 POKE36876,M: POKE36879,41 :NEXTM 
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POKE36876 , 9 :NEXTL erem 244 
POKE36878,@ srem 54 
PRINT" {BLK} {CLR}{2 DOWN}{RIGHT}YOU GOT CAUGHT WITH":PRINT 
"{7 RIGHT}S";S srem 49 
GOTO615 srem 113 
IFPEEK (Z-1 )=45THENV=1 srem 243 
IFPEEK (Z-1 )=42THEN465 srem 199 
POKEZ—-1 ,43 sPOKEZ—-1+C,4 s:rem 7 
IFPEEK(Z+1 )=45 THENV=1 srem 238 
IFPEEK (Z+1 )=42THEN48@ srem 202 
POKEZ+1 ,43 : POKEZ+1+C,4 srem @ 
IFPEEK (Z+22 )=45 THENV=1 srem 39 
IFPEEK(Z+22 )=42THEN495 srem 254 
POKEZ+22,43 : POKEZ+22+C,4 srem 108 
IFPEEK(Z—-22 )=45 THENV=1 srem 38 
IFPEEK (Z-22)=42THEN5@5 srem 254 
POKEZ-—22 ,43 : POKEZ-22+C,4 srem 1900 
POKE36877,22@ srem 152 
FORL=1L5TOOSTEP=1 srem 217 
POKE36878,L srem 82 
FORT=1T025 :NEXT srem 195 
NEXTL srem 39 
POKE36877 ,0:POKE36878,2@ srem 7 
IFV=1THEN385 srem 191 
IFPEEK(Z-1 )=42THEN55@ srem 194 
POKEZ=-1 , 32 srem 22 
I FPEEK(Z+1 )=42THEN56@ srem 194 
POKEZ+1,32 srem 21 
IFPEEK(Z+22)=42THEN57@ srem 247 
POKEZ+22 , 32 srem 73 
IFPEEK(2Z-22 )=42THEN58@ srem 251 
POKEZ-22,32 srem 76 
POKEZ, 59: RETURN srem 218 
POKE36878,15 srem 115 
FORL=198TO1STEP=-1 srem 221 
POKE36874 ,L* 25 sNEXTL srem 172 
POKE36874,98:POKE36878,@: RETURN srem 28 
POKE36879, 30 srem 196 
PRINT" {CLR}{2 DOWN}{RIGHT}YOU MADE IT OUT WITH":PRINT" 

{7 RIGHT}{RED}$":S"{BLU}" srem 38 
IFV=1 THENGOT0625 srem 244 
IFS>HSTHENHS=S srem 173 
PRINT"{2 DOWN}{2 RIGHT}HIGH SCORE:$";HS s:rem 154 
PRINT"{2 DOWN}{RIGHT}PRESS ANY KEY TO GO":PRINT"{7 RIGHT} 
AGAIN!" srem 151 
GETAS :IFAS=""THEN635 srem 95 
GOTO25 srem 58 
DATA 7504 ,255,231,255,165,165,255,231,255,66,36,9,195,@, 
36 ,66,0 srem 246 
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650 DATA 7632 ,8,9,8,16,9,8,16,0,24,24,60,126,189,69,36,1982 


srem 4 

655 DATA 75260 ,126,60,126,231,239,247,231,126,112,251,251,25@8 
,116,49,112,248 s:rem 105 

660 DATA 7648 ,98,0,0,0,0,9,0,9,255,231,255,165,165,255,231,25 
5 srem 163 

665 DATA @ srem 235 
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Diamond Maze 


“Diamond Maze” is a maze game for the unexpanded VIC and requires a 
joystick. When the game begins, you find yourself in a dark maze trying to 
locate diamonds for your kingdom. You are provided with a small oil lamp 
to help you find your way inside the dark mazes. The oil in the lamp is lim- 
ited, so you must try to get as many diamonds as you can before the light 
runs out. When it does, the quest is over. 

The lamp will light the part of the maze that you are in as you move. 
What lies in any direction is unknown to you until you move in that direc- 
tion. Once you make contact with a diamond, you are automatically trans- 
ported to another and completely different maze where you continue your 
search for the next diamond. These diamonds glow brightly, so you will 
know their locations. By using the joystick to move in any available direc- 
tion, you must find the quickest route. Each maze is numbered in the lower- 
right corner. This number represents the diamond number that you are going 
after. The amount of oil left in the lamp is also indicated on the right side of 
the screen. The indicator starts at the top and continues downward until it 
reaches the bottom of the screen, at which time the quest ends. 


Making Mazes 


In order to generate the maze quickly, this program uses a machine language 
subroutine. The maze is generated in the blink of an eye so that when you 
go from one maze to another, you will barely notice that the maze has 
changed. Any knowledge of the previous maze is of little use since each 
maze is different. 

Lines 800-999 are the BASIC loader and DATA statements for the ma- 
chine language maze-generating subroutine. This subroutine is loaded into 
the cassette buffer. Lines 60-640 initialize the screen to reverse spaces with a 
border. This is required by the machine language subroutine to determine 
the boundaries of the maze. These lines can be used to create your own 
mazes. The rest of the lines are used to implement the Diamond Maze logic. 


Diamond Maze 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


1 SC=99 srem 118 
26 GOSUB7@98 :GOTO2304 :rem 129 
30 POKEDD , 127 :J=( PEEK(D1) AND6@) OR( PEEK( D2) AND128) :POKEDD, 255 
s:rem 27 
4d V=((JAND16 )=@) -( (JAND1 28 )=@) +( ( (JAND4) =@) -((JAND8)=@) )* 22 
:rem 121 
56 B=A+V : IFPEEK(B )=98THENF=1 : POKES1 , 220: GOTO8@ srem 56 
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IFTI>T2THENT2=TI+TK : POKET+C, 6 : T=T+22 : POKET+C, 1:1 FT> TMTHEN2 


OP srem 47 
IFPEEK(B)<>32THEN3@ srem 31 
POKES1 , 248 : POKEA, 32 : POKEB, 81 : POKES1 ,@ srem 161 
FORI=@0TO8 : POKEA+T(I)+C,6:NEXT:A=B srem 231 
FORI=9TO8 : POKEA+T(1I)+C,5 :NEXT: LFF=@THEN3@ srem 34 
F=8 :M=M+1 :GOSU B69 : TK=360-M* 38 :GOTO1LOD srem 188 
PRINTCHRS(19);CHRS$(158);" GAME OVER"; :POKE36879, 238 
srem 89 
FORI=@TO8 : POKEA+T(1I)+C,1:NEXT srem 18 
IFPEEK(197)=64THEN22@ srem 164 
M=1 :TIS="GGOOOOH" : TK=360 s:rem 155 
T2=TI+TK :T=7701 :GOSUB699 :GOTO1DD srem 174 
P RINTCHR$(19) ; CHR$(31);CHR$(18); :rem 1 
PRINT "8K KKK RE RRR KEKE KKK ERK | Me srem 145 
FORI=1T021:PRINT"-{19 SPACES}-.' '; NEXT :rem 227 
PRINT "& ke eK KKK REE KEK REE S ‘rem 181 
POKE8185, 48+M: 3; POKE8185+C, 1 s:rem 185 
SYS8 28 : POKE36879,110:POKEA, 81:POKET+C, 1 s:rem 59 
X=INT(RND(1)*18) +2 :Y=INT( RND(1)*19) +2 srem 38 
B=7680+Y* 22+X :I FA=BTHEN660 srem 218 
POKEB, 90 : POKEB+C, 7 : RETURN srem 58 
DD=37154 :D2=DD—2 :D1=37137 :C=38726 :A=7680+23 srem 248 
T(@)=-23:T(1)=-22:T(2)=-21:T(3)=-1:T(4)=0 srem 37 
T(5)=1:T(6)=21:T(7)=22:T(8)=23 srem 6 
POKE36878, 15:S1=36876: TM=8141 . srem 98 
B=828:REM BASIC LOADER srem 2408 
READD : IFD<8THENRETURN srem 129 
POKEB, D:B=B+1 :GOTO8190 srem 222 
DATA169, 30,133,169,169,23,133,168,168,@ srem 132 
DATA145,168,173,36,145,1901,167,109,40,145 srem 232 
DATA41 ,3,133,166,133,167,170,32,169,3 :rem 27 
DATA291,32,176,32,169,169,209,170,208,26 s:rem 178 
DATA232,138,145,170,165,178,133,168,165,171 z:rem 80 
DATA133,169,165,166,9,4,179,32,169,3 srem 250 
IFSC< 3 THENPOKE7 781+Y* 22+C,3 srem 71 
DATA169,32,145,170,298,202,230,166,165,166 srem 392 
DATA41 ,3,133,166,197,167,208,204,177,168 srem 200 
DATA133,166,169,32,145,168,165,166,281,5 srem 186 
DATA176 ,43,9,8,170,202,32,169,3,165 srem 1994 
DATA17@,133,168,165,171,133,169,208,159,24 srem 34 
DATA189,196,3,48,19,1901,168,133,1798,165 srem 136 
DATA169 ,195,9,298,8,101,168,133,170,165 s:rem 127 
DATA169, 233,0,133,171,96,2,212,254,44 s:rem 29 
DATA255,22,1,234,254,44,2,212 s:rem 137 
DATA -l | srem 35 
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Meltdown 


Your goal in ““Meltdown,” for the unexpanded VIC with a joystick, is to pre- 
vent a meltdown at the local power plant. You have 45 seconds to capture a 
capsule of nuclear fuel. Then you must weave your way through automatic 
defenses, reach the core of a nuclear reactor, and deliver the fuel capsule to 
prevent meltdown of the reactor. There is one hitch, however; once you drop 
off your fuel, you will only have delayed a meltdown for another 45 sec- 
onds. In order to stabilize the reactor and permanently stop meltdown, you 
must deliver 20 units of fuel to the core, and each one must be delivered 
within 45 seconds. Should you fail to deliver even a single capsule in the 
allotted time or lose all of your lives (you have three lives with a bonus life 
after ten capsules have been delivered), the reactor immediately goes 
meltdown and you lose the game. 

You must pilot a Tritron Megatank around the screen to pick up fuel. 
The Tritron can move quickly in four directions, but it has one potentially 
dangerous or useful feature. When the joystick is in the neutral position, the 
Tritron will move to the right, heading for the reactor wall. It will continue 
until it hits one of the obstacles or until it hits the reactor wall. Although this 
is a hazard, it can also be used for speedy movement through clear zones. 
The last control is the fire button which, when pressed, will cause the Tritron 
to stop at a dead halt. By quickly pressing and releasing the button, you can 
cause a slow step-by-step movement, which is good for maneuvering 
through thickly cluttered areas of mines. 


Obstacles 
There are three obstacles which will destroy one of your tanks upon contact 
and also cost you precious time. The electric mines, which are cross-shaped 
characters spread out all over the screen, are your worst enemies, because 
you must carefully maneuver through them during all phases of the game. 
The other two obstacles are the red walls at the top and bottom of the screen 
and the left reactor wall. Any attempt to scroll off the left side of the screen 
at a spot other than the entrance to the reactor will cause instant destruction. 
Entering the left side entrance will place you just above the core. This is 
the rear entrance and can be used if the regular entrance is blocked. It is also 
worth noting that touching the core without having captured fuel will de- 
stroy you. 


A Few Words About Fuel 


On each screen a red-and-white striped block will appear. This is the fuel 
you must collect. You need only touch it in order to capture it. Once you 
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have the fuel, a red diamond will appear in the upper-right side of the 
screen. This means that you can safely enter the reactor core. Once you cap- 
ture a fuel capsule, it is yours until you reach the reactor. If you are de- 
stroyed then, you will be transported to the starting spot on the screen 
(minus a life) with a penalty of having time added to your score. 


A Few Final Rules 
As you progress through the screens, the level of difficulty increases so that 
the number of mines and warp discs will increase. Your starting position for 
each screen is the upper-left corner of the playfield facing the right reactor 
wall. You will also appear there after an explosion and at the start of each 
level. 


Meltdown 
For mistake-proof program entry, be sure to use “The Automatic Proofreader,”” Appendix C. 
1 POKE 36879,8 srem 213 
2 PRINT"{CLR}{2 DOWN}{5 RIGHT} KLIMNKKFELTDOWKLIMKJ}":POKE 368 
78,15 = - :rem 77 
3 FORG=118T0245 :POKE36876 ,G:POKE36876,8 :sNEXT srem 172 
4 F=62:S1=236875 : E=307 26 : H=0 :N=3 : B=30 s:rem 226 
5 PRINT"{CLR}" srem 153 
6 POKE3849@1,5 srem 198 
8 FOR T=7680TO7768:POKE T,255:POKE T+E,@:NEXT srem 139 
16 FOR S=7799T08163 :POKE S,96:NEXT s:rem 244 
11 PRINT" {HOME }FUEL UNITS:";H srem 194 
12 Q=7790 :POKE36879,255 srem 19 
13 IFH=2THENB=69 : IFH=4THENB=99 :I F=H=8THENB=129 : I FH=12THENB=16 
@ :I FH=16 THEN B=2900 srem 70 
15 FORG=1TOB:1I=7834+INT(RND(1)*380)+1:POKE 1,87:POKEI+E,4 :NEX 
TG srem 250 
16 FORK=1TOB :Z=77990+ INT (RND(1)*380)+1:POKEZ,65:POKEZ+E,15 :NEX 
TK srem 191 
17 FOR U=7789T08189 STEP 22:POKE U,95:POKE U+E,12:NEXT 
srem 197 
18 FOR A=@TO21 :POKE7768+A,111:POKE8164+A,111:POKE7768+A+E,2:P 
OKE8164+A+E, 2 :sNEXT srem 73 


28 D=7870+INT( RND(1)*294)+1:POKED,102 : POKED+390720,234:rem 176 
21 POKE7986,118 :POKE7987,119:POKE8030,118 :POKE8931,111:POKE8@ 


G9 , 42 : POKE387 28,6 :rem 214 

22 TIS="QGGSGo" srem 198 

23 PRINT" {HOME}{3 DOWN}TRITRONS:";N s:rem 196 

24 Q=7790 :POKEQ,F:POKEQ+tE,15 srem 179 

25 J=PEEK( 37151) :POKEQ,F:POKE Q+tE,15 srem 77 

28 PRINT"{HOME} {DOWN} TIME: "TIS srem 137 
29 IFJ=11OTHENQ=Q-1 : POKEQ+1 ,32:POKEQ+E,15:F=60:POKE S1,15@ 

srem 180 

36 IFJ=1260RJ=127 THENQ=Q+1 : POKEQ-1 , 32: POKEQ+E,15:F=62:POKE Sl 

7,150 srem 119 
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IFJ=118THENQ=Q+ 22 : POKEQ-22,32:POKEQ+tE,15:POKE S1,139 


AZes 


srem 246 

IF J=122 THENQ=Q-22 : POKEQ+22,32:POKEQ+E,15:POKES1, 219 
srem 242 
POKE S1,@ z:rem 118 
IF PEEK(Q)=182 THEN 209 srem 82 
IF PEEK(Q)=42 AND PEEK(7744)=98 GOTO 496 srem 247 
IFPEEK(Q)=42 ANDPEEK(7744)<>98GOTO 1900 srem 42 
IFPEEK(Q)=111THEN 190 srem 76 
IFPEEK(Q)=65THEN1OG srem 37 
IFPEEK(Q)=87THEN 320 s:rem 46 
IFTIS="9OOGO45"THEN 190 srem 35 
IF PEEK(Q)=118THEN190@: IF PEEK(Q)=119 THEN19@:IFPEEK(Q)=111 
THEN1OO srem 160 
IFPEEK(Q)=95 THEN19O@ srem 46 
GOTO 25 srem 5 
POKE36878,15 s:rem 98 
POKE36877,255 srem 153 
FORX=1T0255 STEP2 :POKE36879 ,X:NEXT srem 101 
POKE 36877,@ srem 48 
N=N-1 : I FN=-1THEN125 srem 72 
IFTIS=>"Q0O0OO35"THEN 125 srem 152 
GOTO 23 srem 48 

PRINT"{6 DOWN}{6 RIGHT} {RED} QQQQQQQQ":PRINT"{6 DOWN} 
{3 RIGHT} {RED} KL}MNKK} ELTDOWELIMEK}" srem 234 
POKE36878,15:FORT=2900T0255 : POKE36877 , T: NEXT srem 94 
FOR K=1T0O500 sNEXT srem 236 
GOTO 125 srem 109 
: [FH=16 THENB=+1990 s:rem 189 

POKE36878,15:PRINT"{CLR}{9 DOWN} MISSION ACOMPLISHED: 
{3 SPACES}MELTDOWN ABORTED" srem 143 
C=INT(RND(1)*255)+1 srem 221 
S=INT(RND(1)*50)+175 srem 36 
POKE36879,C srem 76 
POKE36875,S srem 89 
FORT=1TO19006 sNEXTT srem 73 
GOTO 162 srem 114 
POKE7744,90@:POKE 7744+E,2 srem 57 
POKE 36878,15:POKE36874,238:FORM=1TO5@ :sNEXT srem 247 
POKE36874,@ srem 43 
GOTO 25 srem 53 
Q=Q-7 : POKEQ, 81 : POKEQ+7 , 32 srem 212 
POKE36878,15 :POKE36876,220 srem 158 
FORJ=1 T0508 :NEXT srem 183 
POKE36876,08:GOTO 25 srem ll 
POKE 36878,15 s:rem 1901 
FORK=128 TO 255:POKE36874,K:NEXT srem 67 
POKE 36874,@0 srem 45 
H=H+ 1 srem 192 
IFH=20THEN 160 srem 214 
I FH=198THENN=N+1 :rem 116 
POKE7744 , 32 :GOTO1@ srem 6 
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Rats! An Artificial 
Intelligence 
Simulation 


Artificial intelligence, or AI, is the use of machines, especially digital comput- 
ers, to perform tasks usually thought of as requiring intelligence when per- 
formed by humans. Interest in the subject was intense in the 1950s, when 
the potential of large computing machines was first being explored. Early 
successes were achieved with a program which proved theorems in symbolic 
logic, and with others which played creditable games of chess and checkers, 
but the immensity of the task of imitating human thought soon became 
apparent. 

The databases demanded by these AI systems, and the complexity of the 
programs used to manipulate these databases, militate against their practical 
implementation in the present generation of microcomputers. It is, neverthe- 
less, possible to make a simulation on the microcomputer which illustrates 
the methods of AI. In “Rats!,”” which is such a simulation for a VIC with 8K 
memory expansion, a rat solves a maze on the screen, in much the same way 
that an AI program seeks the solution to a problem. 


Principal Features of Al Systems 
The first step in using an AI system is to define the task to be performed as 
precisely as possible, specifying both the starting point and the goal. 

Our rat starts from a specific position on the screen. Its target (perhaps a 
piece of cheese?) is hidden in a maze, and its goal may be only to reach the 
target, to reach the target as quickly as possible, or to find the shortest route 
to the target. Attaining one of these goals may require a somewhat different 
approach from that required to attain another, and in all cases, there may be 
more than one solution. 

Getting from the starting position to the goal requires, in general, 
searching an information space, where each move adds something to our 
knowledge about that space. Practical AI systems tend to call upon very 
large, multidimensional databases. In our simulation, the information re- 
quired is quite simple: Each of 506 locations on the screen is either closed or 
Open, except two, which are marked as the starting position and the target, 
respectively. By determining which positions are open and how they are con- 
nected to other positions which are open, our rat can find its way to the 
target. 
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The organization of the information space can be of critical importance 
to the efficiency of an AI program. It is important to search the most signifi- 
cant space first and to be able to respond to new information without exces- 
sive backtracking through familiar territory. Our rat has ready access to 
information about its immediate environment, but no way, in most cases, of 
finding out about more distant points. Clearly, information about more dis- 
tant parts of the maze, perhaps a road sign or two, would be useful, but the 
increase in the complexity of the information space necessary to provide this 
input is considerable. 

Search through information spaces tends to become lengthy as the space 
expands, because each new point visited can lead to several possible next 
moves. If the resulting combinatorial explosion is to be kept in hand, it is 
essential that whatever constraints exist on the solution be applied at the 
earliest possible point. The most obvious constraint on the solution of our 
problem is that the target is somewhere on the screen. Our rat is constrained 
to investigate the 506 screen positions and those positions only. If the right 
constraints were not in the program, the rat would investigate memory loca- 
tions that have no relation to the screen positions and therefore sure to be 
’ unrewarding. 


search Strategies 
A central feature of every AI program is its search strategy. A highly in- 
efficient strategy, but one which will eventually explore all points in the 
available information space, is a random walk from one point in that space 
to any other which is accessible from the first, and so on. Among the more 
efficient alternatives are the breadth-first and depth-first strategies. Our rat 
can illustrate both of these. 

With the breadth-first strategy the rat will travel the same distance down 
each available path, in rotation, going one step further each time it traverses 
a given path. In this fashion it is sure to find the shortest route to the target; 
but it may go through a great deal of wasted motion in the process. 

For a depth-first search the rat will explore a given path until the path 
comes to an end or until the rat reaches the goal; then the rat moves to the 
next available path if it was unsuccessful. In many situations this strategy is 
more efficient than the breadth-first strategy. But there is no guarantee that 
the path found will be the shortest one possible. A great deal of time can be 
wasted in cases where a short path exists, but along with much longer 
successful paths and/or dead ends. 

Many more sophisticated strategies are available. The branch-and-bound 
strategy, for instance, combines some of the strengths of the depth-first and 
the breadth-first approaches. The path of the rat following a simple branch- 
and-bound requires that it proceed down an available route until a branch 
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point is reached. Then the rat reviews the available data and continues along 
a path emanating from the previously discovered intersection which is clos- 
est to the starting point, and from which an unexplored path is still available. 
This branch-and-bound approach is also sure to find the shortest route to the 
goal, and frequently with much less wasted motion than is inherent in the 
breadth-first search. 

As we have already indicated, searches can be more efficient when 
information about more distant parts of the information space is available. In 
particular, the branch-and-bound strategy can be improved if some estimate 
can be made of the remaining distance to the target, and if the choice of path 
can be based on an estimate of the total path length rather than on knowl- 
edge of the distance already traveled. This modified strategy will find the 
shortest path provided that the estimate is always less than or equal to the 
remaining distance. It will further reduce the amount of search required if 
the estimates are accurate than if they are inaccurate. (An estimate of zero 
remaining distance always meets the requirement that it be less than the ac- 
tual remaining distance, but provides no improvement over the original 
strategy.) 

We can illustrate the impact of an estimate by attributing a sense of 
smell to our rat and assume that it can estimate the distance from the cheese 
by noting the intensity of its aroma. Since all path lengths through the maze 
must be longer than the straight-line distance from rat to cheese, this will be 
an appropriate estimate to use in the branch-and-bound strategy, and will 
cause our rat to quickly abandon paths which are moving it away from the 
target. 

A second feature of every AI program is a control mechanism for guid- 
ing the chosen search strategy and, in some cases, selecting among available 
strategies. A common control method is the production system which consists 
of a series of IF-THEN statements which test for specified conditions and 
take action accordingly. 

Our rat uses a production system at each step, first to determine 
whether the target is at hand, and then to find a direction in which it can 
proceed without encountering a wall. IF the rat is by the target, THEN it eats 
the cheese. IF it finds an open space, THEN it moves into the space. IF it 
finds itself in a blind alley, THEN it turns around and goes back. 

The efficiency of the search may be strongly influenced by the order in 
which the productions are triggered. It is generally desirable to trigger 
productions first which have the potential for eliminating large portions of 
the search space as unfruitful, and then testing subtler questions. Triggering 
productions in a systematic order can in some cases lead to a result different 
from a random triggering. 

This last effect is easily demonstrated by our rat. If we program the rat 
to select from its options at each intersection in a random fashion, after a 
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sufficiently long series of runs through the maze, it will have examined every 
possible path. If, on the other hand, we have the rat look straight ahead first, 
then left, then right, say, at every intersection, it will still find its way to the 
target, but on repeated runs it will always find the same route, which may or 
may not be the shortest one available. 


Leaving a Trail 
In many AI programs, it is not only important to reach the goal, but also to 
leave an audit trail which documents the path taken. Such a trail is essential 
if the user wants to ask why the program reached the indicated conclusion. 

Our rat needs an audit trail for two reasons: During any given run, a 
trail is helpful to prevent repetitious exploration of blind alleys. And if sev- 
eral runs are made to find the shortest path, each path must be remembered 
for comparison with previous paths, and the shortest must be remembered 
so that the rat can find it again. 

Since keeping track of where it has been puts a significant strain on the 
rat’s (and the VIC’s) memory, we have explored several techniques to keep 
track of things. In one case, the depth-first search, we equip the rat with a 
mental map of the entire search space so that it can mark the points visited. 
This is a very adequate approach for avoiding duplication and remembering 
the path actually chosen, but it requires a secondary counting of steps to 
determine the length of the path. In other cases, the rat counts steps and 
remembers directions from the starting point, but it is not provided any 
information about its absolute position in the search space. 

All AI programs have an ability to learn, in a certain sense, but they 
vary widely in the extent to which they must be spoon-fed their new knowl- 
edge. In most cases, new knowledge is incorporated into the program by a 
human programmer who enlarges the information space, or improves the 
search strategy or the control. But some programs, particularly game pro- 
grams, are self-modifying; they avoid past mistakes the next time around. 

Our rat exhibits two kinds of learning ability and could be equipped 
with yet a third. First, it learns with human intervention when the program 
is changed. (We find the rat to be a slow learner when we do the program- 
ming!) Second, it learns from experience in any given maze and retains what 
was learned in this audit trail. It can find and remember the shortest route to 
the target. And it could surely learn to select an optimum search strategy if 
we were to write the appropriate program. 


The Program 
Rats! requires at least 11K of RAM (8K or more memory expansion). The pro- 
gram is written in BASIC. It provides for storing mazes on tape or disk, but 
the use of external storage is not essential, since the user can construct 
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appropriate mazes as a part of running the program. Tape users should 
change OPEN1,8,2,’-MAZE” in line 800 to OPEN1,1,0,“MAZE” and also 
change OPEN1,8,2,“-MAZE,S,W” in line 900 to OPEN1,1,1,““MAZE”. 

Integer variables are used extensively to minimize the demand on RAM. 
(An integer variable consumes two bytes of VIC memory; a real number, five 
bytes.) The size of the R% array is an important constraint on the mazes 
which can be explored by the program. If more than ten possible paths exist 
or if the shortest path is more than 100 steps long, the maze will not be 
accepted. 


Using the Program 
The meaning and utility of various search strategies and auditing techniques 
can be explored by using the maze construction routines to fashion mazes 
having various desired characteristics, and then letting our rat run through 
those mazes using the various search routines. 

Many more configurations are possible. The branch-and-bound method 
with a remaining-distance estimate will be found to be especially powerful in 
mazes in which paths tend to lead in a consistent direction, but this tech- 
nique is less useful in mazes where early steps down the correct path appear 
to be in the wrong direction. The breadth-first routine will be impressive 
only in cases where a short path to the target coexists with much longer 
paths, none of which need be fully explored using this strategy. 

For a given search, we may set as a goal finding the target as quickly as 
possible on the first run or finding the shortest path to the target. In most 
cases, the depth-first strategy will be found quite effective at finding the tar- 
get quickly on the first run of the maze, but it is a characteristic of the mem- 
ory device used that the best route may never be found except after repeated 
searches from scratch. In depth-first searches, our rat will prefer its first 
successful route unless we wipe its memory clean and let it use the random- 
selection routine another time. 

The score sheet accessible at the end of each run makes it possible to 
compare the rat’s performance in a given maze using a variety of search 
strategies, and before and after learning in each strategy. The record is 
cleared each time we return to the main menu, and such returns are nec- 
essary only to alter the maze. 
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Rats! 

For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 

38 DIMB%(586),T%(506),R%(198,18),D%(4),C%(4) srem 102 

31 DEFFNA(X)=INT( (X-1)/22)-INT( (X2-1)/22) :DEFFNB(X)=ABS (X-X2- 
22*FNA(X))+ABS(FNA(X) ) srem 253 


58 PRINT" {CLR}{5 SPACES}{RVS}RATS{2 SPACES}MENU{OFF}":PRINT:P 
RINT:PRINT"A{3 SPACES}CONSTRUCT MAZE":PRINT:PRINT :rem 54 
53 PRINT"B{3 SPACES}GET MAZE FROM FILE":PRINT:PRINT"C 


{3 SPACES}MODIFY MAZE":PRINT:PRINT srem 116 
57 PRINT"D{3 SPACES}RUN MAZE":PRINT: PRINT: PRINT"E{3 SPACES}FI 
LE MAZE":PRINT:PRINT srem 92 
69 PRINT"F{3 SPACES}END SESSION" srem 120 
68 V=0:FORK=1T010:S%(K)=0:NEXT srem 67 
78 GETZS :sIFZS=""THEN7@ srem 35 
71 IFZS="A"THEN1OG srem 247 
72 IFZS="B"THEN8OO srem @ 
73 IFZS="C"THENL5@ srem @ 
74 IFZS="D"THEN29090 s:rem 254 
75 IFZS="E"THEN9GD srem 7 
77 IFZS="F"THENEND srem 72 
188 PRINT" {CLR}{3 SPACES}{RVS}MAZE CONSTRUCTION{OFF}":PRINT:P 
RINT"PRESS K TO OPEN SPACE":PRINT srem 35 
192 PRINT"PRESS D TO CLOSE SPACE":PRINT:PRINT"{3 SPACES}TO MO 
VE AND OPEN" srem 107 

194 PRINT"{4 SPACES}ADJACENT SPACE":PRINT"{5 SPACES}PRESS:" 
:rem 222 
196 PRINT"{11 SPACES}I{2 SPACES}UP":PRINT:PRINT" {3 SPACES} LEF 
T{2 SPACES}J Z L{2 SPACES}RIGHT": PRINT :rem 8 
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188 


PRINT" {5 SPACES} DOWN{ 2 SPACES }M":PRINT:PRINT:PRINT"PRESS 


{SPACE}1 FOR START":PRINT srem 130 
PRINT"PRESS 2 FOR TARGET":PRINT:PRINT"{2 SPACES} {RVS}PRES 
S Z TO CONTINUE{ OFF}" srem 55 
GETZ$ : LFZS=""THEN120 srem 123 
FORK=1TO5@6 :B%(K)=16@8:NEXT srem 5 


FORK=1 TO5@6 : POKE37887+K, 6 : POKE4095+K, B&(K) :NEXT :rem 31 


PRINT" {HOME}{21 DOWN}":PRINT"PRESS Q TO RETURN"; :rem 135 
FORV=1TO198 :S%(V)=@ :NEXT: V=@ srem 131 
X=243:B=32 srem 230 
IFX< 23 THENX=X+22 :GOTO157 srem 222 
IFX> 484 THENX=X-22 :rem 14 
POKE4@95+X ,B:B%(X)=B srem 88 
GETZS$ : IFZS=""THEN159 :rem 147 
IFZS="D"THENB=160 srem 174 
IFZS="K"THENB=32 srem 136 
IFZS="L" THENX=X+1 : B=32 :rem 14 
IFZS="J" THENX=X-1 :B=32 :rem 15 
IFZS="M" THENX=X+ 22 : B=32 :rem 68 
IFZS$="I "THENX=X-22 :B=32 srem 67 
IFZS="1"THENB=9@ : X1=X :rem 199 
IFZS="2" THENB=83 :X2=X srem 204 
IFZS="Q"THEN5@ srem 15 
GOTO155 s:rem 113 
PRINT" {CLR}{5 SPACES}{RVS}SEARCH MENU":PRINT:PRINT:PRINT" 
A{3 SPACES } RANDOM": PRINT: PRINT srem 28 
PRINT" B{3 SPACES}BREADTH FIRST":PRINT:PRINT:PRINT" C 
{3 SPACES}BRANCH AND BOUND":PRINT: PRINT srem 142 
PRINT" D{3 SPACES}B AND B PLUS":PRINT:PRINT:PRINT" E 
{3 SPACES}DEPTH FIRST":PRINT: PRINT srem 175 
PRINT" Q{3 SPACES}MAIN MENU" :rem 20 
GETZ$ : 1 FZS=""THEN210 srem 123 
IFZS="A"THENJ=1 :GOTO250 srem 84 
IFZS="B"THENJ=2 :GOTO38 srem 83 
IFZS="C"THENJ=3 :GOTO358 srem 91 
IFZS="D"THENJ=4 :GOTO048 srem 92 
IFZS="E"THENJ=5 :GOTO45@ :rem 98 
IFZS="Q"THEN5@ srem 12 
GOTO210 srem 102 
WW=0 :F=32 srem 212 
GOSUB7906 :GOTO255 s:rem 190 
GOSUB58@ srem 175 
IFL=0@ THEN260 srem 171 
GOSUB731 :T%(W)=T%(W-1) +D: GOTO29@ srem 76 
GOSUB5194 srem 174 
IFN=8THENGOSUB72@ :GOTO265 srem 59 
P=INT(RND(1)*N)+1 srem 157 
D=D%(P) :X=X+D srem 188 
I FW=1 THENT$ (1 )=D:GOTO267 s:rem 174 
T% (W)=T%(W-1)+D :rem 234 
IFW<3 THEN280 srem 189 


FORK=1 TOW-1 
IFT%(K)=T% (W) THEN273 
NEXT 
GOTO28@2 
W=K 
GOSUB7 398 :GOTO253 
IFWW=9 THENWW=W 
IFW> WWTHENGOTO55@ 

=W: T=1 
FORK=1 TOWW 
R% (K-100* (P-1),P)=T%(K) 
IFK-~100* (P-1 )=10@THENP=P+1 
NEXT 
WP=P 
GOTO55@ 
F=46 : WW=0 : GG=1 
GOSU B79@ 
WW=WW+1 : LFWW< 101 THEN3@5 
GOSUB982 :GOTO317 
FORG=1 TOGG 
IFES (G)=1THEN34@ 
GOSUB74@ : GOSUB58@ 
IFL=9THEN3 20 
R% (WW, G) =D: GOSUB731 :GS=G :GOTO55@ 
GOSUB51@ 
IFN=9 THENE$% (G)=1 : GOSUB7 28 : GOSUB75@ :GOTO034@G 
R%(WW,G)=D%(1) 
IFN=1THEN335 
IF (GG+N-1 ) <11THEN327 
G=19 : GOSUB98@ :GOTO317 
FORK=2TON 
FORW=1 TOWW-1 : R% (W, GG+K-1 )=R%(W,G) :NEXT 
R& (WW, GG+K-1 )=D%(K) 
NEXT 
GG=GG+N-1 
GOSUB75@ 
NEXTG 
GOTO393 
F=46 :GG=1 :GS=1 
GOSUB790@ 
WW=5 82 
FORG=1TOGG 
IFE%(G)=1THEN362 
IFW%(G) <WWTHENGSS=G : WW=W3(G) 
NEXT 
G=GS :GOSUB7 49 :X=X+R% (WW, GS) :GOSUB731 
WW=WW+1 : IFWW<101THEN368 
GOSUB982 :GOT0O372 
WS (GS )=WW: GOSUB5@@ 
IFL=9 THEN374 
GOSUB731:R%(WW,GS)=D:GOTO55@ 
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GOSUB5194 s:rem 180 
IFN=9THENE$ (GS )=1 :GOSUB7 28 :GOSUB75@ :GOTO354 srem 148 
R% (WW, GS)=D3(1) srem 255 
I FN=1 THENX=X+D3% (1) :GOSUB731 :GOTO366 srem 129 
FORK=2 TON srem 49 
GG=GG+1 :I FGG<11THEN387 srem 27 
GOSUB98@ :GOTO372 srem 209 
W3 (GG )=W% (GS) :rem 161 
FORW=1 TOWW-1 : R&(W, GG)=R%S(W, GS) :NEXT srem 172 
R% (WW, GG) =D% (K) srem 14 
NEXT srem 221 
GOSUB72@ :GOSUB75@ :GOTO354 srem 32 
F=46 :GG=1 :GS=1 : WW=0 :T%(1)=X1 srem 73 
GOSUB70@ srem 173 
VV=5090 z:rem 22 
FORG=1TOGG srem 103 
IFW3(G)+FNB(T%(G) )+E%(G)*500<VVTHENGS=G : VV=W$ (G)+FNB(T%(G 
)) :rem 93 
NEXT :rem 212 
WW=W3 (GS) :rem 233 
G=GS:GOSUB74@ : X=X+R$% (WW, GS) :GOSUB731 srem 239 
=WWt+l : I FWW<101THEN418 srem 161 
GOSUB982 :GOT0422 s:rem 202 
w% (GS )=WW: GOSUB50@ srem 62 
I FL=@ THEN4 24 srem 167 
GOSUB7 31 :R%(WW,GS)=D:GOTO559 srem 183 
GOSUB519@ s:rem 176 
IFN=0 THENES (GS )=1 :GOSUB7 298 :GOSUB75@ :GOTO484 srem 1498 
R& (WW, GS )=D%(1) :T%(GS)=X srem 53 
IFN=1THENX=X+D$% (1) :GOSUB731 :GOTO416 srem 119 
FORK=2 TON srem 43 
GG=GG+l :IFGG<11THEN435 srem 15 
GOSUB98@ :GOTO0422 srem 199 
ws (GG )=W% (GS) :T%(GG)=T% (GS) srem 206 
FORW=1 TOWW-1 :R%&(W,GG)=R%(W,GS) :NEXT srem 166 
R% (WW, GG)=D% (K) srem 17 
NEXT srem 215 
GOSU B7 29 :GOSUB75@ srem 9 
GOTO464 srem 199 
F=32 :FORK=1T0506 :T%(K)=6:NEXT srem 212 
GOSUB7@@ :rem 178 
GOSUB59@@ : I FL=0 THEN469 srem 253 
GOSUB731:GOTO559@ srem 201 
N=8 :GOSUB52@ : IFN=OTHEN466 srem 249 
P=INT( RND(1)*N)+1 srem 159 
X=X+D$3(P) :POKE37887+X,C%(P) :T%(X)=C%(P) :GOSUB731 :GOTO454 
srem 249 
GOSUB5390 : IFN=8 THEN472 srem 8 
P=INT(RND(1)*N)+1 srem 165 
X=X+D%(P) :GOSUB731 :GOT0454 srem 34 
GOSU B54@ : I FN=0 THEN4 76 srem 10 
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POKE37887+X,7:T%(X)=7 :X=X+D:GOSUB7 31 :GOT0454 srem 144 
GOSUB7 298 :GOSUB731 :GOT0454 srem 31 
I FB% ( X+1 )=83 THENX=X+1 : D=1 : L=1 : RETURN srem 17@ 
IFB% (X+22 )=83 THENX=X+22 :D=22 :L=1 : RETURN srem 68 
I FB% (X—-22 )=83 THENX=X-22 : D=-22 : L=1 : RETURN srem 118 
IFB% (X-1 )=83 THENX=X~1 :D=-1 :L=1:RETURN srem 222 
RETURN srem 122 
N=2 s:rem 81 
IFB%(X+1 )=32 THENN=N+1 :D%(N)=1 srem 73 
IFB$% (X-22 )=32THENN=N+1 :D%(N)=-22 srem 223 
I FB% (X+22 )=32 THENN=N+1 : D$(N)=22 :rem 177 
IFB% (X-1 )=32THENN=N+1 :D%(N)=-1 :rem 123 
RETURN srem 127 
IFB% (X+1)=32ANDT$ ( X+1 )=6 THENN=N+1 :D%(N)=1:C%3(N)=O:rem 186 


IFB% (X-22 )=32ANDTS%( X-22) =6 THENN=N+1 :D$(N)=-22:C%(N)=2 


srem 136 
I FBS (X+22 )=32ANDT$ (X+22 )=6 THENN=N+1 : D$¥(N)=22:C%(N)=3 
srem 94 
IFB%(X-1 )=32ANDT$(X-1 )=6 THENN=N+1 : D$(N)=-1:C%(N)=4 
srem 245 
RETURN :rem 127 
IFT$%(X+1 )=@THENN=N+1 :D3(N)=1 srem 38 
IFTS$(X-22 )=2 THENN=N+1 :D3(N)=-22 s:rem 191 
IFT% (X+22 )=3 THENN=N+1 :D%(N)=22 srem 147 
IFT%(X-1)=4THENN=N+1 : D$¢(N)=-1 srem 95 
RETURN s:rem 128 
IFB%(X+1)=32ANDT%(X+1)<5THEND=1 :N=1 s:rem 207 
IFB% (X-22 )=32ANDT$ (X-22) <5THEND=-22 :N=1 srem 155 
IFB%(X+22)=32ANDT$(X+22) <5 THEND=22 :N=1 srem 108 
I FBS (X-1 )=32ANDT$ (X-1 ) <STHEND=-1 :N=1 srem 6 
RETURN :rem 129 
FORK=1T0O7 : POKE38384+K,6 :NEXT srem 216 
POKE4593, 16: POKE4594,18:POKE4595,5:POKE4596,19:POKE4597,1 
9:POKE4598,32:POKE4599,26 srem 2 
L=9 :GETZS : I FZS=""THEN552 srem 128 
POKE4995+U,F: POKE4095+Z,F: POKE4095+Y,F: POKE4095+X,F 
s:rem 37 
POKE4995+X1 , 908: POKE4995+X2 , 83 srem 113 
BS (U)=F:B%(Z)=F:B%(Y)=F:B%(X)=F:B%(X1)=99:B%(X2)=83 
srem 224 
PRINT" {CLR}"; :rem 58 
ONJGOT0O562 ,563,564,565,566 srem 135 


PRINT" {4 SPACES}{RVS}RANDOM SEARCH{OFF}":GOTO567 :rem 158 
PRINT"{4 SPACES}{RVS}BREADTH FIRST{OFF}":GOTO567 :rem 172 
PRINT" {3 SPACES}{RVS}BRANCH AND BOUND{OFF}":GOTO567 


srem 34 
PRINT"{3 SPACES}{RVS}BRANCH AND BOUND{OFF}":PRINT" 
{4 SPACES}{RVS}PLUS ESTIMATE{OFF}":GOTO567 srem 114 
PRINT" {5 SPACES}{RVS}DEPTH FIRST{OFF}" srem 19 
PRINT: PRINT srem 246 
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PRINT"A{3 SPACES}RERUN - NO MEMORY":PRINT:PRINT"B 


{3 SPACES}RERUN WITH MEMORY":PRINT srem 90 
PRINT"C{3 SPACES}CHECK SCORES":PRINT:PRINT"D{3 SPACES}GO 

{SPACE}TO SEARCH MENU":PRINT srem 225 
IFJ=5THENPRINT"E{3 SPACES}COLOR MEMORY":PRINT srem 79 
PRINT"Q{ 3 SPACES}GO TO MAIN MENU" srem 86 
GETZS : IFZS=""THEN586 srem 155 
IFZS="C"THENGOSU B95 :GOTO560 srem 268 
ONJGOTO600 ,620,649 ,660,680 srem 120 
IFZS="B"THEN610 srem 44 
FORP=1TO14 : FORK=1 TO10@ :R%(K, P)=0:NEXT:NEXT srem 118 
FORK=1T05@6 :T% (K)=0 :sNEXT srem 171 
IFZS="A"THEN251 srem 47 
IFZS="D"THEN260 srem 45 
IFZS="Q"THEN5@ srem 14 
GOTO56@ srem 115 
GOSUB76@ s:rem 174 
FORP=1TO19 srem 66 
FORK=1TO190@ :rem 1190 
GOSUB731 srem 182 
X=X1+R%(K,P) srem 116 
IFK+1989* (P-1 )=WWTHENGOTO619 :rem 79 
NEXT srem 221 
NEXT s:rem 222 
GOSUB7 31 :S%(V)=S%(V)-1:GOTO551 srem 220 
IFZS="B"THEN627 srem 54 
GOSUB764 srem 182 
FORK=1TOGG : E%(K)=98:FORW=1TOWW: R&(W,K)=0 :NEXT:NEXT: rem 126 
IFZS="A"THEN3 00 srem 44 
IFZS="D"THEN20@ srem 47 
IFZS="Q"THEN5@ :rem 16 
GOTO56@ srem 114 
GOSUB79@ srem 182 
G=GS :GOSUB74@ :X=X+R% (WW,G) :GOSUB731 :GOTO551 srem 177 
IFZS="B"THEN654 srem 56 
GOSU B76 srem 185 
FORG=1 TOGG : FORW=1 TOW%(G) :R&(W,G) =@ : NEXT: E%(G)=0:W%(G)=8:N 
EXT s:rem 151 
IFZS="A"THEN35@ srem 54 
IFZS="D"THEN20@ srem 53 
IFZS="Q"THEN5@ srem 14 
GOTO569 srem 113 
GOSUB79@ srem 182 
G=GS :GOSUB74@ :X=X+R% (WW,G) :GOSUB731 :GOTO551 srem 178 
IFZS="B"THEN674 srem 60 
GOSUB76@ srem 187 
FORG=1 TOGG : FORW=1 TOW%(G) :R&(W,G)=0 :NEXT: E%(G)=0:W%(G)=@0:T 
%(G)=0 :NEXT srem 81 
IFZS="A"“THEN460 srem 52 
IFZS="D"THEN286@ srem 55 
IFZS="Q"THEN5@ srem 16 
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GOTO56@ srem 115 
GOSUB79@ s:rem 184 
G=GS : GOSUB74@ :X=X+R3 (WW,G) :GOSUB731 :GOTO551 srem 188 
IFZS="B"THENFORK=1 T0586 : POKE49095+K, BS$(K) : POKE37887+K, T%(K 
) sNEXT: GOSUB7@2 :GOT0454 srem 104 
IFZS="E"THEN695 :rem 70 
FORX=1T0506 : POKE37887+X,6:T%(X)=6:NEXT srem 52 
IFZS="A"THEN45@ srem 59 
IFZS="D"THEN20@ :rem 57 
ITFZS="Q"THEN5@ srem 18 
GOTO56@ srem 117 
FORK=1 T0506 : 1FB%(K)=32ANDT3(K)=6 THENPOKE4@95+K , 32 : POKE378 
87+K,6:GOTO697 srem 237 
POKE4695+K, 160 : POKE37887+K, T%(K) : POKE4995+X1 , 98: POKE49095+ 
X2,83 s:rem 27 
NEXT :GOTO55@ srem 242 
FORK=1T05@6 : POKE4@95+K,B3(K) :POKE37887+K,6:NEXT srem 32 
X=X1 : U=X : Y=X : Z=X srem 44 
IFV=10THENFORN=1T09 :S%(N)=S3(N+l1) sNEXT: GOTO7@9 :rem 90 
V=V+1 s:rem 227 
W=1:S%(V)=8:RETURN srem 69 
POKE4095+U , F:B%(U)=F : POKE4995+X,M:B%(X)=M srem 97 
D=Y—-X :U=Z:Z=X sX=Y: RETURN srem 142 
W=W+1 srem 225 
S%(V)=S%(V)+1 srem 114 
M=67 : I FABS( Y-Z )=22 THENM=9 3 srem 41 
POKE4095+U,F: POKE4095+Z,M:B%(U)=F:B%(Z)=M srem 199 
POKE4995+Y , 81 : POKE4995+X , 90: B%(Y)=81 :B%(X)=908 :U=Z: Z=Y : Y=X 
: RETURN srem 130 
X=X1 : Y=X : Z=X : U=X : I FWW=1 THENRETURN srem 34 
FORK=1TOWW-1 :X=X+R%(K,G) :GOSUB731 :NEXT srem 145 
RETURN srem 125 
FORK=WW-1TO1STEP—-1 :X=X-R%(K,G) :GOSUB731 :NEXT srem 45 
POKE4995+U , F: POKE4095+Z,F:B%(U)=F:B%(Z)=F:RETURN :rem 117 
FORK=23T0483 srem 179 
IFB% (K)=46 THENB$(K)=32 :rem 172 
NEXT srem 223 
RETURN srem 130 
PRINT" {CLR}GET MAZE FROM FILE":PRINT:OPEN1,8,2, "MAZE" 
s:rem 32 
FORK=1 T0596 srem 119 
INPUT#1,B%(K) :rem 173 
IFB%(K)=90 THENX1=K :rem 19 
IFB% (K)=83 THENX2=K :rem 23 
NEXT srem 220 
CLOSE1 :GOTO5@ :rem 29 
PRINT" {CLR}FILE MAZE":PRINT:OPEN1,8,2,"MAZE,S,W" :rem 15 
FORX=1T0596 :PRINT#1,B%(X) :NEXT :rem 86 
PRINT#1 :CLOSE1 :GOTO5@ srem 57 
PRINT" {CLR}{3 SPACES}{RVS}LATEST RAT SCORES{OFF}":PRINT:P 
RINT"TRIAL", "SCORE":PRINT srem 42 


251 


Mazes 


955 
956 
957 
958 
968 
965 
972 
98 
982 
999 


232 


FORK=1TO19 

IFS%(K)=@THEN9I60 

PRINTK,S%(K) 

NEXT 

PRINT: PRINT:PRINT" PRESS Z TO CONTINUE" 
GETZS$ : 1FZS=""THEN965 

RETURN 

GG=18:PRINT"TOO MANY BRANCHES" :RETURN 
WW=190:PRINT"PATH TOO LONG": RETURN 

END 


srem 71 
srem 1394 
srem 189 
srem 229 
srem 237 
srem 157 
s:rem 128 

srem 95 
srem 147 
srem 1390 
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space Corridor 


Get ready for the ultimate video experience. ‘Space Corridor” is not just a 
game, but an adventure where your skills as a pilot are tested to their fullest. 
All you need is an unexpanded VIC and a joystick to test your skills. 

To manipulate your ship, move joystick left and right. The fire button 
activates the laser. Be wary of enemy bombs and ships. Watch your fuel 
consumption (monitored by the gauge near the top of screen). After you 
shoot five of the enemy’s ships, your fuel is restored and you set up base, 
but your base is constantly blasted by other enemy ships. 


Typing It In 
When typing in this program, be sure to save a copy before you run it since 
an error in one of the DATA statements could cause the program to crash. 
Program 2 disables the RUN/STOP key. 

If you are using a disk, be sure to save Program 2 with the filename 
SPACE.PRG. Tape users should save Program 2 on the same tape immedi- 
ately after Program 1. Tape users should also delete lines 63995 and 63997 
of Program 1 and replace line 63999 with 


63999 POKE198,1:POKE631,131 
Good luck and happy laser blasting! 


Program 1. Space Corridor 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,”” Appendix C. 


15 POKE56,27 :POKE55,24@:POKE51,2498:POKE52,240:CLR srem 104 
206 FORT=7416T0O7583 :READC: POKET ,C:NEXT: FORT=7152T07413:READC:P 

OKET,C:NEXT srem 149 
999 DATA231,231,231,231,231,231,231,231 srem 169 


1900 DATAD,9,89,09,09,0,09,0,231,231,231,195,219,24,66,126:rem 87 
1818 DATA5S7,57,57,57,131,199,239,239,255,221,221,221,235,247, 


247,255 srem 95 
1828 DATA255,219,219,219,231,231,255,255,255,255,235,235,24/7, 
247,247,247 srem 37 
1930 DATA255,255,255,235,247,255,255,255,255,255,255,247,255, 
255 .4:299 5205 srem 52 
19658 DATA255,255,255,255,255,255,255,255 srem 244 
1968 DATAG,2,10,11,47,47,43,42,170,186,199,234,254,255,255,25 
5 srem 22 
1078 DATAG,128,1608,160,168,168,168,168,179,176,1798,1790,170,17 
0,170,170 srem 171 
168@ DATA255,255, 254, 238, 234,250,186,190,170,170,178,170,170, 
170,176,170 :rem 16 
1885 DATA42,42,42,42,19,19,2,0,198,255,255,190,199,186,186,18 
6 srem 27 
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1986 
1887 
1996 
1119 
1129 
1139 
1149 
1150 
1160 
1165 
1179 
1175 
1176 
1177 
1178 
1180 
1196 
1280 


1210 


63995 
63997 


63999 


DATA168,168,168,168,169,169,128,9,126,189,219,255,255,21 


9,189,126 :rem 216 
DATA231, 231,231,231, 231, 231,231,231 :rem 206 
REMINTERRUPT DATA srem 149 


DATA172,60,3,192,255,248, 39, 169,127,141, 34,145,169,49,15 
3,1908,31,173,17 srem 200 
DATA145 ,41,16,298,1,136,173,32,145,41,128,208,1,208,169, 
33,153,198,31 srem 76 


DATA14@ ,69,3,169,255,141, 34,145, 76,191,234 srem 57 
REM ***ML DATA*** srem 89 
DATA169,151,133,253,169,2906,133,252,162,8,169,151,133,25 
5,169,228 srem 180 
DATA133,254,162,0,169,90,177,252,145,254,2008,192,22,208,2 
47,56 srem 217 


DATA165, 254, 233, 22,133,254,165,252, 233,22,133,252,232,22 
4,10,208,227 srem 504 
DATA173,61,3,160,0,153,8,151,200,192,22,208,248:REM SHIP 
ML srem 12 
DATA169, 31,133,255,169,0,133,254,160,0,177,254,201,50,290 
8,18,165,2,201,31,208,2 — s:rem 66 
DATA169, 49,145, 254,2901,51,208,4,169,40,145,254,281,31,20 
8,33,169,40,145,254 . srem 1508 
DATA192,230,176,25,152,24,105,22,168,177,254,201,33,208, 
5,169,1,133,9 srem 105 
DATA96 , 169, 31,145,254,152,56,233,22,168,136,208,192,169, 
@,141,11,144 srem 78 
DATA169,3,133,1,173,17,145,41,32,208,55,169,1,205,62,3,2 
49,47,169 srem 166 
DATA1 ,141,62,3,174,68,3,138,56,233,22,170,188,199,31,192 
,49,248,13 srem 191 
DATA132,2,169,59,157,108,31,169,255,141,11,144,96,169,51 
,157,1808,31,198,1 s:rem 39 


DATA208 , 222,169,208,141,11,144,96,169,8,141,62,3,96 
srem 236 
POKE 36879,15 srem 226 


PRINT "{CLR}{YEL}PLEASE WAIT....{BLK}":PRINT "{2 DOWN}L 
OAD"; CHRS$ (34); "SPACE.PRG";CHRS(34);",8" s:rem 181 
PRINT "{5 DOWN}RUN": PRINT" {HOME }": POKE198,2:POKE631,13: 
POKE 632,13 srem 221 


Program 2. Space.prg 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,’ Appendix C. 


1B 


POKE809 ,242 :PRINTCHRS (144) CHR$(147)SPC(3)"SPACE CORRIDOR!" 


:GOSUB2000 srem 176 

30 FORT=7584T07679:POKET,255 sNEXT: POKE.,. srem 34 
48 POKE37159,255:PRINTCHRS(18)" HIT ANY KEY TO BEGIN "; 

srem 35 

50 WAIT197,255,64:POKE828 ,94:PRINTCHRS (147) :rem 242 

55 C=2:FORT=7922TO8185STEP22 srem 187 


236 
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57 FORJ=1TOC:POKET+(11-J/2),40:POKET+11+J/2,40:NEXT: C=C+2 : NEX 


? :rem 240 

60 PRINTCHRS(17)CHRS$(17)CHRS$(17)CHRS$(17)CHRS(17)CHRS$(17)CHRS ( 
17)"{2 DOWN}" srem 1ll 

65 POKE36867 ,46:POKE36878,143 : POKE36879,8:POKE36869 ,255 

srem 154 

70 PRINTCHRS (5); s:FORT=1TO1@ :PRINTSPC(10-T) CHRS(18)"KD}";SPC(2 
*T) s"KFI"sNEXT srem 253 

80 PRINTCHRS (18) CHRS$( 28) CHRS$(19)CHRS(17)"FUEL: {OFF}456789::<= 
>?":POKE646,11 srem 193 

85 PRINTCHRS (17) : POKE37166, 64 : POKE788 , 240 : POKE789 , 27 : POKE3716 
6,192 srem 106 

98 PRINTCHR$(17)SPC(14)")*+":PRINTSPC(14)",-.":PRINTSPC(14)"/ 
g1" srem 115 
190 NK=.:SC=.:FL=7588 :A=256 : V=36874: L1=8120:L2=8141 :rem 101 
185 Y=7932 :CH=44 :GOSUB479 srem 188 
106 IFPEEK( Y) =5@ THENSYS72@1 : SC=SC+10 : POKEY , 40 :NK=NK+1 : POKE368 
75,220 sGOTO1O5 srem 84 

197 IFNK=5 THENGOSUB39@0@ : SC=SC+5@ srem 215 
119 POKEY,4@::Y=Y+INT(RND(1)*3)+21:CH=CH-.5:IFPEEK(Y)=255THEN 
Y=Y+ 23 srem 1 
112 IFPEEK(Y)=33THENPOKE8 28 , 255 :POKEY,5@ :AN=25@ :GOSUB150@ :ER= 
2:GOTO154@ srem 74 
113 I FPEEK ( L2)=33 THENPOKE8 28 , 255 :POKEL1 ,5@ : AN=25@ sGOSUB15@@:E 
R=2 :GOTO154@ srem 148 

114 IFPEEK(L1)=33 THENPOKE8 28 ,255 :POKEL1 , 58 :AN=250 :GOSUB15@@:E 
R=2 :GOTO154@ srem 148 
120 POKEY,INT(CH) srem 14 
121 IFCH=38THENPOKEY+22, 31 srem 44 
129 POKE829,INT(RND(1)*7)+1 srem 249 
130 IFCT=2 THENA=A/2 : POKEFL, PEEK( FL) -A: POKEFL-1 , PEEK(FL-1)-A3:C 
T=] srem 173 
(131 IFA=1 THENFL=FL+8 :A=256: IFFL>7680THENAN=.:GOSUB15@0: ER=1:G 
OTO154@ srem 174 

132 CT=CT+1:SYS7201 srem 96 
133 IFPEEK(. )=1THENA=PEEK( 828) :POKE828 ,255 :POKE8036+A,5@ :AN=1 
08 s:GOSUB15@@ : ER=2 :GOTO1 540 srem 155 

149 POKEV,3900+NOT( 3*CH) s:rem 46 
150 IFY>82Q00THEN195 srem 75 
168 GOTO1G6 srem 183 
478 PRINTCHRS(19)CHRS(18)CHR$(38)"SCORE";SC, "HIGH";HI:RETURN 
s:rem 91 

9906 DATA231,231,231,195,219,24,66,126 srem 79 
1509 REM SOUND ROUTINE srem 89 
1518 POKE36876, 200 : POKE36877, 200 srem 248 
1520 FORT=15TOOSTEP-1 srem 19 
1538 POKE36878 ,T+128:FORTJ=TTOAN :NEXT: NEXT: POKE36876, .: POKE36 
877,- srem 101 

1535 RETURN srem 174 
1549 REM CRASH srem 31 
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PRINTCHRS$(5)CHRS$(147)CHR$(18);:IFER=1THENPRINT" YOU ARE 


{SPACE}OUT OF FUEL" 


IFER=2THENPRINT"{2 SPACES}YOU HAVE CRASHED" 


srem 31 
srem 124 


PRINTCHRS (17) CHRS$(18)" YOUR FORCE HAS BEEN{7 SPACES}DEST 


ROYED"CHRS$ (17) 
POKE36867 ,34 


PRINTCHRS(18)CHR$(17)"YOU WILL HAVE TO START"; 
PRINTSPC(8) "AGAIN."CHRS (17) CHRS$(17) 


POKE37166,197: IFSC>HITHENHI=SC 


FORT=7432T07439 :READC: POKET,C:NEXT: RESTORE 


GOTO39 


s:rem 52 
srem 158 
srem 215 

s:rem 15 
srem 146 

srem 45 

srem 99 


POKE8@8 , 199 : POKE36869 , 242 :PRINTCHRS (17) CHR$(8)" YOU ARE 


{SPACE }EXPLORING THE"; 
PRINT"PLANET 'FREON' LOOKING"; 
PRINT"FOR LIFE ON THIS " 
PRINT" PLANET. " 

PRINT" ON THE PLANET YOU " 
PRINT"FIND A NATION OF" 
PRINT"DRUIDS WHO HOPE TO USE"; 
PRINT"THEIR 'SLOW BOMBS' AND"; 
PRINT"THEIR SPACECRAFT ON A" 
PRINT"RECKLESS RUN TO WIPE" 
PRINT"OUT YOUR SHIP BEFORE" 
PRINT"YOU CONQUER THEIR " 
PRINT" PLANET. " 


PRINT "YOUR{ SHIFT-SPACE }MISSION:TO TAKE" 


PRINT"OVER THE PLANET BY" 
PRINT"DESTROYING THEIR AIR" 
PRINT"FORCE OF 5 SHIPS" 
PRINT"BEFORE THEY HIT YOU OR"; 
PRINT" YOU RUN OUT OF FUEL." 
POKE36879 ,25 :RETURN 


s:rem 21 
srem 238 
srem 113 
srem 136 

srem 86 

srem 88 

srem 73 

s:rem 42 
srem 209 
srem 197 
srem 194 

srem 43 
srem 136 
srem 172 

srem 22 
srem 249 

srem 99 

srem 70 
srem 11/7 
srem 185 


NK=.:PRINTCHRS(18)CHR$(19)"{3 SPACES}YOUR FORCE HAS 


{2 SPACES }" 


PRINTCHRS(18)"DEFEATED THE AIR FORCE"; 


PRINT" YOUR BASE IS NOW SET" 


PRINTCHRS(18)"UP. YOU MUST NOW FIGHT"; 


srem 227 
srem 233 
srem 124 
s:rem 12 


PRINT"GORKS FROM{2 SPACES}'PLANET Z'":POKE37166,64 


srem 196 


FORT=1T0O25 : POKE36876 , 230: FORJ=1 TO40 :NEXT: POKE36876,.:FOR 


J=1T049 


srem 189 


NEXT :NEXT:PRINTCHRS(19); :FORT=1TO5:PRINT" {22 SPACES}"; 


NEXT : FORT=7432T07439 : POKET, . :NEXT: FL=/588 :A=256 
FORT=7584T0O7679 :POKET, 255 :sNEXT: GOSU B47 : RETURN 


srem 64 
srem 207 
srem 8 
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Base Defense 


“Base Defense” is an entertaining game for the unexpanded VIC with a 


joystick. 


It’s an easy game to play. The object is quite simply to destroy as many 
meteors as you can with five bases. The closer the meteors get, the more 
points they’re worth because of the greater risk. Point distribution is as fol- 
lows: 50 points for close range, 25 for midscreen, and 10 for faraway shots. 

It’s that simple, and it even leaves 2K for you to add your own extras. 


Base Defense 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


18 PRINT" {CLR}":POKE36879,14:POKE37139,@ 
15 GOSUB259@ : GOSUB29892 

17 PRINT"{CLR}{22 DOWN}" 

20 R=7690 : V=36878:S1=36877 :S2=36876 :G=5: DD=37154 
38 FORT=1T03 

48 GOSUB28@ 

5@ P=INT(RND(1)*22) 

68 POKE8142+P,1 

65 POKE38862+P, INT(RND(1)*7)+1 

78 NEXT T 

72 IFPEEK(R+22 )=1THENGOSUBLOAGS 

75 PRINT" { DOWN} ":GOSUB8@ :GOTO3@ 

88 POKE R,@:RETURN 

2088 P=PEEK( 37137) 

205 IF(P AND 32)=@THENGOTO49@ 

219 IF(P AND 16)=8THEN DR=-1:GOT025@ 

215 POKEDD,127 

226 M=PEEK( 37152) 

225 IF(M AND 128)=@ THEN DR=1:POKEDD, 255 :GOTO25@ 
238 DR=@:POKEDD, 255 

258 POKE R, 32 

255 R=R+DR 

260 IF R<=7680THENR=7680 

265 IF R>=77@1THENR=77@1 

278 POKE R,@ 

275 RETURN 

400 POKEV,15:FOR C=1T0O2@ 

405 POKER+22*C, 46 

418 POKE S2,230-C 


K 
e) 
a 
NO 
am 
NO 


ry 
@ 
a 
-—~ 
Ov 
\o 


:rem 122 


415 IF PEEK((R+22*C)+22)=1 THEN POKE (R+22*C)+22,2:GOSUB5@0:S 


C=SC+AD:GOTO0459 
428 POKE R+22*C, 32 
425 POKE S2,@0:NEXT C 
459 FORW=1T025 :NEXTW: POKE( R+22*C)+22, 32 
455 POKE R+22*C,32 
468 RETURN 


srem 211 
s:rem 164 
:rem 183 
:rem 71 
:rem 172 
:rem 122 
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POKEV,15:POKES1,215:POKES2, 200 srem 9 
IFC<5THENAD=5@ :rem 47 
IFC>=5ANDC<=15 THENAD=25 srem 106 
IFC> 15 THENAD=1@ :rem 1981 
POKEV,@:POKES1 ,@:POKES2 ,@ srem 1l 
RETURN srem 120 
POKEV,15:POKES1,215:POKES2,15@ srem 57 
POKE 36879,239 srem 205 
FOR X=1 TO 5 srem 75 
POKE R+X,62:POKE R-X,6@ :rem 49 
NEXT X srem 95 
FORE=1L5TO@STEP-1 srem 254 
POKEV,E srem 186 
FORW=1 T0190 :NEXTW srem 118 
NEXTE s:rem 76 
POKEV ,@:POKES1 ,@:POKES2,9 srem 55 
G=G-1 :IFG=@THEN GOTO 15900 s:rem 152 
POKE 36879,14 srem 154 
RETURN srem 165 
PRINT" {CLR}": POKE36879, 27: POKE37154, 255 : POKE36869, 240 
srem 169 
PRINT" {BLU}YOUR SCORE WAS ";SC srem 62 
INPUT"WANT TO PLAY AGAIN";AS srem 175 
IF LEFTS(AS,1)="N" THEN END srem 143 
PRINT" {CLR}" :rem 46 
SC=@0 : CLR: POKE36869 , 255 : POKE36879,14:GOTO17 srem 16 
PRINT" {RVS}GENERATING GRAPHICS" srem 218 
FORQ=7 168T07679 : POKEQ , PEEK(Q+25608) :NEXTQ srem 49 
FOR X=7168 TO 7191:READ A:POKE X,A:NEXT X srem 32 
DATA 66,66,66,192,102,126,60, 24,60, 34,123,141,129,81, 34, 
28 srem 16 
DATA 36,157,66,36,24,129,36,66,9,09,0 srem 217 
POKE 36869,255 srem 205 
RETURN srem 167 
PRINT: PRINTTAB(5);"{WHT}BASE DEFENSE" srem 17 
FORX=@0TO21 : POKE7680+X , 42 : POKE8164+X , 42 :NEXTX srem 241 
FORX=98T0O22 : POKE7680+22*X,42 :POKE7701+22*X,42:NEXT X 
srem 11 
FORW=1TO290900 :NEXTW srem 171 
PRINT" {CLR}": RETURN srem 73 
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Bomber Squadron 


“Bomber Squadron” is a game in two parts for the unexpanded VIC and a 
joystick. It’s easy to play. All the instructions appear on the screen. 

On this fateful night you will receive your first wartime mission. When 
the papers finally arrive, you feel a sharp pain in the pit of your stomach. 
You have been selected for the Bomber Squadron. 

Suddenly, you find yourself deep over enemy lines. All you can hear is 
the dull roar of the plane’s engines as you gaze into the radar. Then you see 
them, the enemy installations with a little more than you bargained for— 
jamming devices. Of course, since you are such a shrewd, level-headed per- 
son, you view these as only minor obstacles. You make a mental note to 
avoid them while positioning your sights, for your sights are at the only part 
of the plane where bombs can get out or jamming signals in. It’s all up to 
you now. 

Just as you bomb the first installation, the pilot turns around and warns 
you, “The targeting computer is having a problem. If you run off the top or 
bottom of the radar, it will not correct it.” You realize what this means. If 
you exit the radar’s screen, the system will crash. Havoc will reign, and you 
will surely go down. But enough worrying for now. The enemy awaits. 


Custom Characters 
Program 1 is merely a simple program to enter custom characters into the 
VIC. If you are unfamiliar with custom characters, you may wish to consult 
the VIC-20 Programmer’s Reference Guide or COMPUTE)’s First Book of VIC. 
They both give good explanations of custom characters. With minimal 
changes, Program 1 can be customized for your own games. All you need to 
do is alter the DATA statements, following these simple rules: 


1, The first number of each DATA statement contains the POKE value of the 
character to be replaced. For example, line 100 begins with a zero. This 
means we are replacing the @ character. 

2. The next eight numbers define exactly what the new character will look 
like. 

3. Continue repeating this process until you have defined all the characters 
you wish to define. 

4. After you've defined all the characters with DATA statements, add another 
DATA statement (or add this to the end of your last DATA statement) and 
place a —1 there (as in line 190). This will exit the loop. 
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Typing the Program 
Program 1 will automatically run Program 2. Disk users should save Pro- 
gram 2 with the filename BOMBER.PRG. Tape users should save Program 2 
on the same tape immediately following Program 1, and should delete lines 
60, 70, and 80 of Program 1 and replace line 50 with the following: 


50 POKE198,1:POKE631,131 


Some of the longer lines of the program need to be entered with 
keyword abbreviations. Use a question mark (?) for PRINT and N SHIFT-E 
for NEXT. For a complete list of abbreviations, see you computer manual. 


Program 1. Bomber Squadron 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 


10 PRINT" {CLR}{2 SPACES}CHARACTER GENERATOR":PRINT"{5 SPACES} 


BY CHRIS HILL" srem 65 
28 POKE52,28:POKE56, 28:CLR:FORI=7168T07679:POKEI , PEEK( I+25609 

) :NEXT :rem 78 
38 CB=7168:READA: IFA=-1THEN5S srem 283 
48 FORN=0TO7 : READB: POKE(CB+A*8+N) ,B:NEXT:GOTO3@ srem 187 
5@ POKE198,2:POKE631,13:POKE 632,13 srem 187 
55 POKE 36879,8 srem 14 
6@ PRINT "{CLR}{YEL}GET READY....... {BLK}":PRINT "{2 DOWN}LOA 

D"; CHRS( 34) ; "BOMBER.PRG"; CHRS(34);",8" srem 244 
76 PRINT "{5 DOWN}RUN" srem 13@ 
80 PRINT "{HOME}" srem 76 
100 DATAG,0,8@,120,124,124,128,8,2 srem 79 
110 DATA], 255,129,249,254,254,249,129,255 srem 33 
12@ DATA2,255,129,129,129,129,129,129,255 :rem 31 
125 DATA3, 24,60,60, 24,98, 36, 24, 36 srem 126 
13@ DATA49,68,126,126,126,126,60,608,126 srem 178 
140 DATA5®,24,60,60,60,60,60, 24,60 srem 164 
15@ DATA51,0,16,56,56,56,16,56,@ srem 8G 
160 DATA52,9,9,16,56,56,16,56,8 srem 23 
170 DATA53,0,8,16,16,16,16,0,@ srem 214 
188 DATA54,@,@,@,16,16,9,8,@ srem 106 
190 DATA55,0,@,0,16,0,9,9,9,-1 srem 191 


Program 2. Bomber.prg 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,”” Appendix C. 


1 POKE36879,8 :POKE36869,255 srem 22 
5 LOC=7955 :SC=@ : COL= 38664+11 z:rem 84 
18 PRINT" {CLR} {BLU} {RVS}*** BOMBER SQUADRON***" :rem 22 
20 FORT=1TO20@0 :NEXT srem 233 
30 PRINT"{CLR}{4 SPACES} {RVS} INSTRUCTIONS?" s:rem 205 
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4@ GETAS :IFAS=""THEN4@ srem 235 
50 IFAS="N"THENS9 srem 2061 
60 IFAS<>"Y"THEN4S :rem 4 
76 PRINT"{CLR}{RVS}{2 SPACES}YOU ARE NOW A WORLD WAR II BOMBE 
R PILOT! {2 SPACES}AS YOU FLY OVER THE" srem 228 
71 PRINT" {RVS}ENEMY LINES, YOU MUST ATTEMPT TO BOMB ALL 

{3 SPACES}THE INSTALLATIONS THAT"; srem 163 
72 PRINT"{RVS}PASS UNDERNEATH YOU.{2 SPACES}THE [{OFF}B{RVS} I 
S YOUR CROSS{3 SPACES}HAIRS. USE THE" srem 75 
73 PRINT"{RVS}JOYSTICK TO AIM YOUR{2 SPACES}BOMBS, AND THE FI 
RE{3 SPACES}BUTTON TO BOMB." srem 204 
74 PRINT"{RVS}AVOID THE [{OFF}C{RVS} OR A{6 SPACES}SERIOUS MAL 
FUNCTION{3 SPACES }MAY OCCUR." srem 102 
99 PRINT"{RVS}PRESS FIRE TO BEGIN." srem 62 
188 GOSUB19O@ : IFFB=8 THEN1 OG :rem 80 
189 PRINT" {CLR} {WHT}" srem 3 
128 GOSUB21@ :rem 166 
130 GOSUB25@ srem 171 
139 TIS="9G8G9B" srem 255 
140 GOSUB37@ srem 175 
158 GOSUB1OBO srem 215 
151 IFFBTHENGOSU B4198:GOTO191 srem @ 
152 POKELOC, 32 srem 54 
168 IFJ2THENLOC=LOC-1 srem 42 
176 IFJO@THENLOC=LOC+1 srem 37 
188 IFJ3THENLOC=LOC-22 srem 94 
198 IFJ1THENLOC=LOC+22 srem 91 
191 IFLOC=JMTHEN9O OO srem 212 
192 IFLOC>81630RLOC< 7782 THENGOSU B208@ srem 21 
195 IFPEEK( LOC) <>@THENPOKELOC, 2 :GOTO281 srem 204 
196 POKELOC,1 srem 19 
201 IFTIS=>"GG0030" THENGOSU B5 89GB srem 57 
209 GOTO14G srem 185 
210 REM ENGINE & SIGHTS srem 37 
226 POKE36878,15:POKE36877,241 :rem 160 

2308 POKELOC,32:XX=PEEK( LOC) :I1FXX=@THENPOKELOC,1:J=1:RETURN 
srem 57 
235 POKELOC,2:J=@:RETURN{19 SPACES} :rem 16 
25@ REM ESTABLISH BLDGS. srem 18@ 
260 BB=7681 :A=BB+INT(RND(@)*2@) :B=BB+INT( RND(@)*2@) :C=BB+INT( 
RND(@) * 20) :rem 238 
278 D=BB+INT( RND(@)*20) sJM=BB+INT( RND(@)*2@) srem 224 
380 Z=INT(RND(1)*22) :X=INT(RND(1)*6)+41 :rem 135 
320 IFX=1THENA=A+Z srem 93 
330 IFX=2THENB=B+Z srem 97 
348 IFX=3 THENC=C+Z srem 181 
358 IFX=4THEND=D+Z :rem 105 
355 IFX=5 THENJ M=JM+Z srem 21 
368 POKEA,®@:POKEB,@:POKEC,@:POKED,@:POKEJM,3:RETURN :rem 246 
370 REM MOVE BLDGS. srem 79 
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POKEA, 32:POKEB, 32:POKEC, 32:POKED,32:POKEJM, 32 :A=A+22 :B=Bt+ 


22 :C=C+22 :D=D+22 sJIM=JIM+22 :rem 68 
GG=8163 :I FA> GGTHEN25@ srem 213 
IFB> GGTHEN259 s:rem @ 
IFC>GGTHEN25@ srem 2 
IFD>GGTHEN25@ srem 4 
IFJM>GGTHEN25@2 :rem 88 
POKEA,@:POKEB,%@:POKEC,%8:POKED,@:POKEJM,3 : RETURN srem 241 
REM BOMB DROP srem 206 
I FPEEK( LOC )=@ORPEEK( LOC )=1 THENJ=1 :GOT042@ srem 57 
J=6 srem 81 
BO= 48 : VO=36876 :NO=200 srem 160 


FORT=1TO7 :BO=BO+1 sNO=NO-1 : POKELOC, BO: POKEVO,NO: FORH=1TO29 


@:NEXT:NEXT s:rem 247 
POKEVO,@ srem 203 
IFJ<>1THENRETURN srem 42 
REM BOMB HITS! srem 245 


VO=36877 : HH=16 : POKEVO,@ : POKEVO, 135 : HH=HH=-1 : FORT=1TO15 : POK 


E36878 ,HH: FORQW=1TO19O9 srem 182 
NEX TOW : NEXT: POKEVO,@ : POKEVO, 241 : POKE36878,15 srem 64 
SC=SC+1 s:rem 96 
RETURN srem 124 
DD=37154:P1=37151:P2=37152 srem 126 
POKEDD, 127: P=PEEK(P2)AND128 s:rem 108 
J@=-( P=0) srem 181 
POKEDD, 255: P=PEEK(P1) srem l 
J1=-((PAND8)=@) srem 20 
J2=-((PAND16)=@) s:rem 69 
J3=-(( PAND4)=@ ) srem 20 
FB=-((PAND32 )=@) s:rem 81 
RETURN srem 169 
POKE36877 ,@ s:rem 92 


POKE36879,110:PRINT"{CLR}{RVS}CONTROL TOWER STATUS 

{2 SPACES }REPORT...":FORT=1TO1L500 :NEXTT srem 134 
PRINT" {RVS}{2 SPACES}YOU OVERLOADED THE{2 SPACES}FLIGHT 
{ SPACE }COMPUTER!" srem 184 


PRINT" {RVS}YOU DID DESTROY ";SC;"{5 SPACES} INSTALLATIONS 
Pi s:rem 3 
PRINT"{2 DOWN} {RVS}CONTROL TOWER SIGNING OFF...":FORT=1T 
09999 :NEXT:CLR:GOTO] srem 147 
IFTIS=>"GGO200" THENGOTO6HAG srem 36 
IFTIS=>"089130"THENPOKE36879 , 93 :RETURN srem 26 
_IFTIS=>"8001006" THENPOKE36879 ,93 : RETURN srem 24 
IFTIS=>"9900030"THENPOKE36879, 42 :RETURN srem 21 
REM SUCCESSFUL MISSION srem 204 


POKE36877 ,@ : POKE36879,118:PRINT" {CLR} {RVS} {WHT }CONTROL T 
OWER STATUS{2 SPACES}REPORT..." s:rem 74 
FORT=1T01580 :NEXT srem 87 
PRINT" {RVS}SUCCESSFUL MISSION{4 SPACES}COMPLETED." 

srem 152 
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PRINT" {RVS}"SC" INSTALLATIONS{8 SPACES}DESTROYED." 


srem 76 
PRINT" {RVS}PRESS FIRE TO REPLAY" :rem 268 
GOSU B190@ : IF FB=9 THEN6 203 srem 196 
GOTO] srem 54 
REM JAM srem 133 
POKE36877 ,@ : POKE36879,110:PRINT" {CLR} {RVS}{WHT}CONTROL T 
OWER STATUS{2 SPACES}REPORT..." srem 77 
FORT=1TO150@ :NEXT srem 9G 
PRINT" {RVS}COMPUTER SYSTEMS{6 SPACES}JAMMED. SYSTEM 
{8 SPACES }MALFUNCTION. PLANE" srem 244 
PRINT" {RVS}DOWNED BEHIND ENEMY{3 SPACES}LINES." :rem 65 
PRINT" {RVS}NEW PILOT FOR MISSION NEEDED. PRESS FIRE." 
srem 223 
GOSUB1 900 : IFFB=0 THEN9IG5G srem 202 
GOTO1] srem 57 
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Ex-Blast 


You’re an Ex-Blaster, one of the last of your race. Only a few Blasters are 
left. The Orions, who destroyed most of your people with a surprise bomb- 
ing, are planning another attack. This will be the last one, for you know that 
if this attack is successful, it will be the end of your kind. The Orions have 
built hundreds of cities in outer space. These cities are guarded by Orion 
Warriors. Fortunately, the Orions have not built laser cannons, but they do 
have powerful bombs. The bombers need fuel to complete their dastardly 
mission. It’s your job to destroy those fuel pods with your laser cannon, with- 
out being damaged three times by running into such objects as the deadly 
Electro-walls, Spikes, Orion Scouts, Orion Warriors, stars, and fuel pods. 


A Difficult Task 


“Ex-Blast’’ is a tough game, but someone has got to save the Ex-Blast people. 
To play, you'll need a joystick, an unexpanded VIC, and a good sense of 
timing. As the aliens attack, use the joystick to move out of their way and to 
align yourself with the attacker when you wish to fire. To shoot your laser, 
simply press the fire button. 

The joystick will allow movement in all four directions. If you find the 
stick is not functioning properly, press the RUN/STOP-RESTORE key 
combination and rerun the program. The stick should respond correctly. 


Ex-Blast 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 


Some lines of this program require keywords to be abbreviated so that they will not exceed the four-screen-line 
limit. See Appendix B. 


@ POKE36881,128 srem 48 
2 L=l:POKE37154,255 srem 33 
5 FORT=7424T07436 :POKET, @:NEXT: POKE36878,15 :rem 146 
18 CLR:POKES52, 28: POKES56, 28: PCKE36879, 8: FORT=7168T07255:READA: 
POKET,A:NEXT: FORA=@T065 : READB: POKE828+A,B srem 130 
11 NEXT srem 161 
20 PRINT"{CLR}{12 DOWN}{6 RIGHT} {GRN}EX-BLAST|!" srem 191 
30 FORT=128TOOSTEP—.5:POKE36881,T:NEXT :rem 129 
40 FORT=9TO5@ : POKE36881,T: POKE36879,T:NEXT: FORT=5O0TOOSTEP-1 :P 
OKE36879,T:POKE36881,T:NEXT srem 100 
5@ GETAS : IFAS=""THEN4A :rem 236 
51 AS(@)="JJJIJIIJIIITIIIITTITTISIIII" : Z=8 : J=18:Q=8 srem 250 
58 AS(6)="@IJJJJIITIITITITITTIII@" :rem 214 
60 AS(1)="@IJJJIIIIIIIIIIIJJJI@" : POKE36881, 24: POKE36869, 255 
srem 5 
61 AS$(2)="@IIIJJJIIIIIIIIIIIII@": POKE36879,8 srem 156 
62 AS$(3)="@IIIIIIIIIIIIIJJJIII@" srem 192 
64 AS(4)="@II@I@I@I@I@I@I@I@II@":PRINT" {CYN}" srem 34 
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65 AS(5)="@IICIAIDIAIAIDIAICII@" srem 140 
66 SDS="{HOME} {DOWN} {LEFT} {INST}":PRINT" {CLR}":MP=8141:F=190: 
T=10 :G=7 :H=8 :SD=218 : P3=158:P1=37157:PRINT"{CLR}" s:rem 193 


67 DD=37154:C=39720 s:rem 236 
71 POKE36877, 252 :FORPQ=1TO10@:POKEMP,G srem 72 
72 SYS828 :MP=MP+PEEK(1)—-PEEK( 2) :POKEMP,G:POKEMP+22,H:TE=TE-.2 
: 1 FTE<O@THENTE=@ srem 29 
73 IFMP>81850RMP< 7688THENGOSUB5@1 srem 62 
74 IFRND(1)<.3THEN76 srem 153 
75 GOTO81 srem 14 
76 PP=INT(RND(1)*4) :ONPPGOTO77,78,79,8@2 srem 5l 
77 ES="F":GOTO81 srem 122 
78 ES="D":GOTO81 srem 121 
79 ES="C":GOTO81 srem 121 
80 ES="A" :rem 147 
81 POKEDD, 255: IFPEEK( 37151 )=94THENGOSUB300@ srem 68 
83 POKEMP,J:POKEMP+22,J:POKEMP+1,J:POKEMP-1 ,J:POKEMP+44,J 
z:rem 121 
84 PRINT" {HOME} { DOWN}";AS$(@) :PRINTTAB( INT( RND(1)*23));ES:PRIN 
TSDS$ : POKESD, P3 : POKE646, INT( RND(1)*6+1) srem 10 
86 O=PEEK(MP) : IFO=10RO=30RO=40RO=6THENGOSUB5@1 srem 252 
87 PRINTSDS:POKESD, P3:IFPEEK(MP) <>JANDPEEK(MP) <>32THENGOSUB5@ 
1 srem 16 
88 NEXT srem 175 
179 POKE36877,252:FORPQ=1T011@ srem 9 
186 TE=TE-.2:SYS828 :MP=MP+PEEK(1)-PEEK(2):IFMP>81850RMP<768@8T 
HENGOSUB5@1 srem 214 
181 POKEMP,G: POKEMP+22,H srem 226 
182 POKEDD, 255: IFPEEK( 37151 )=94THENGOSUB3900 srem 118 
198 Z=Z+1:IFZ>6THENPOKE646, INT(RND(1)*6+1):PRINT" {HOME } {DOWN} 
"sAS(INT(RND(1)*6)):Z=8:GOTO219 srem 47 
208 PRINT" {HOME } {DOWN}"AS(6) srem 115 
203 TE=TE-.3:SYS828 :MP=MP+PEEK(1)-PEEK(2):IFMP>81850ORMP<7688T 
HENGOSUB5@1 :rem 211 
209 IFRND(1)<.2THENPOKE 7782+INT(RND(1)*22),2 srem 19 
218 POKEMP,J:POKEMP+22,J:POKEMP+23,J:PRINTSDS$ :POKESD, P3:I1FPEE 
K (MP )=JORPEEK (MP )=32 THENNEXT srem 68 
211 W=PEEK(MP) : I FW=@ORW=AORW=9THENGOSUB5@1 :NEXT srem 106 
213 L=L+1:GOTO71 srem 162 
581 POKE36877,200 :FORT=15TOISTEP—.3 : POKE36878,T:NEXT: FORT=1T0O 
255: POKE36879, T:NEXT srem 79 
582 POKE36877,0:POKE36878,15:POKE36879,8 :M=M+1 : TE=98: I FM=3THEN 
5 BBO srem 65 
583 MP=8141 :F=190:TE=0 : RETURN srem 232 
3880 TE=TE+1 : I FTE>3THENRETURN srem 112 


3091 FORPZ=MPTO78Q90STEP—22 : IFPEEK( PZ )=2THENS=S+2Q*L :rem 219 
3882 POKEPZ,5:POKEPZ+C,7:POKEPZ,J :NEXT:FORT=18@8TO254STEP7:POK 


E36875,T:NEXT: POKE36875,@: RETURN :rem 69 
4000 DATAG,6,8,255,8,9,0,0,8,0,84,56,124,56,84,8,68,126, 231,2 
39,231,239,119,60,56,84 srem 33 
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4001 
4002 


4883 
ABB 


4005 
4006 
5808 
5801 
5O0B2 
5883 
5984 
50885 


5886 
5897 
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DATA1@8,186,146,170,179,16,42,62,20,20,8,8,98,8,16,0,16,9 


,16,9,16,9,153,189,126 srem 251 
DATA189,153,165,165,153,9,0, 28,62, 28,8,8,8,8,8,73,93,93, 
93,107,73,178,85,178,85,179 srem 62 
DATA85,170,0,0,09,0,0,0,9,9,@ srem 78 
DATA169,128,141,19,145,169,98,133,1,133,2,169,127,141,34, 
145,162,119, 236, 32,145 :rem 39 
DATA208,4,169,1,133,1,169,255,141,34,145,162,118,236,17, 
145,208,4,169,22,133,1 srem 35 
DATA162,110,236,17,145,208,4,169,1,133,2,162,122,236,17, 
145, 208,4,169,22,133,2,96 srem 177 
PRINT" {CLR}":POKE36869, 240:PRINT" {HOME}{3 DOWN}";:X=(S<1l 
GGANDS>=@) srem l 
Xl1=(S>=1O0GANDS< 390) :X2=(S>=38GANDS<600) :X3=(S>=690GANDS<1 
000) :X4=(S>=19000) srem 153 
IFX1THENDS="{RED}SPACE CADET" :rem 224 
IFX2 THENDS=" {CYN}CAPTAIN" srem 152 
IFX3THENDS=" { BLU }} WARRIOR" srem 64 
IFX4THENDS="{GRN}TRUE EX-BLASTER! {YEL}THE BEST" srem @ 
IFXTHENDS="LOUSY PILOT!1!" srem 48 
PRINT" YOU ARE A ";DS$:PRINT"{PUR}YOUR {RED}SCORE{YEL} WAS 
aS srem 251 
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| Meteors 


“Meteors” is for the unexpanded VIC and requires a joystick. 

Maneuver your spaceship at the bottom of the screen (represented by 
the spade) to avoid a collision with a deadly meteor. Any contact with a me- 
teor means instant destruction for your spaceship. 

Destroy the meteors with your laser before they reach your ship. But be 
careful—only the solid meteors can be destroyed by your laser. There is no 
way to destroy the others. 

You'll be rewarded with 15 points for each meteor destroyed, and you 
have just two spaceships with which you can do battle. After the game is 
over, your score and the high score will be displayed. 


Meteors 
For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 
18 HI=0 s:rem 95 
26 A=8986 :C=7778 :D=77798 :E=7916 sK=7832 :H=7948 :J=89002 :L=81 :M=32 
:N=44 :Q=22 :SC=8: LI=2 srem 85 
38 POKE36879,106:PRINT"{CLR} {WHT}":GOSUB419 :rem 88 
5@ POKEA,65:POKEC,L:POKED, L:POKEE,L: POKEF, L:POKEH, L: POKEJ, 87 
:rem 121 
69 DD=37154: P1=37151:P2=37152 srem 35 
76 POKEDD,127:P=PEEK(P2)AND128 :J@=-(P=0) :POKEDD, 255:P=PEEK( Pl 
:rem 180 
86 J1l=-( (PAND8)=@ ) :J2=-( (PAND16)=@) :J3=-((PAND4)=@) : FB=—( (PAN 
D32)=0) :rem 186 
99 X=6:IFJOTHENX=2 :rem 193 
198 IFJ2THENX=-2 srem 191 
119 IFFBTHENGOSUB48@ srem 244 
120 Al=A+X s:rem 6 
130 IFA1<8976THENAI1=A srem 197 
149 IFA1>8@96THENAI=A :rem 202 
158 POKEA,M: POKEA1,65:A=Al s:rem 27 
168 Z=INT(RND(1)*10)*2 srem 183 
178 IFC=ATHENGOSUB58@ srem 52 
188 IFC>89075 THENPOKEC,M:C=7768+2Z srem 178 
198 POKEC,M:C=C+N:POKEC,L srem 31 
200 Y=INT(RND(1)*10)*2 srem 177 
218 IFD=ATHENGOSUB58@ srem 48 
220 IFD>8075THENPOKED,M:D=7768+Y s:rem 175 
230 POKED,M:D=D+N:POKED,L s:rem 30 
248 W=INT(RND(1)*10)*2 srem 179 
250 IFE=ATHENGOSUB586 s:rem 53 
260 IFE>89075THENPOKEE, M: E=7768+W :rem 1890 
276 POKEE,M:E=E+N: POKEE,L s:rem 38 
289 V=INT( RND(1)*10)*2 s:rem 182 
2980 IFK=ATHENGOSUB58@ :rem 63 
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IFK> 8875 THENPOKEK, M:K=7768+V srem 192 
POKEK ,M: K=K+N: POKEK, L srem 57 
T=INT(RND(1)*10)*2 s:rem 175 
IFH=ATHENGOSUB58@ srem 55 
I FH> 8875 THENPOKEH , M:H=7768+T :rem 185 
POKEH ,M: H=H+N: POKEH, 87 srem 84 
S=INT(RND(1)*10)*2 srem 178 
IFJ=ATHENGOSUB58@ srem 61 
IFJ> 88075 THENPOKEJ , M:J=7768+S srem 194 
POKEJ ,32:J=J+44:POKEJ ,87:GOTO7@ srem 108 
FORI=7688T077@1 : POKEI,120:NEXT:PRINT" {7 RIGHT}METEORS!" 
srem 73 
FORI=7724T07745 : POKEI, 121 :NEXT: FORI=8120T08141:POKEI,12@: 
NEXT srem 19 
FORI=8164T08185 :POKEI ,121:NEXT s:rem 61 
PRINT"{19 DOWN}SCORE @{7 RIGHT}LIFE 2":RETURN srem 145 
B=A-N : POKEB, 93 : POKEB-Q, 93 : POKEB-N, 93 : POKEB-66 , 93 : POKEB-88 
793 srem 85 
I FB=CORB-44=CORB-88=CTHENGOSUB55@ : C=7768+2Z :rem 74 
IFB=DORB-44=DORB-88=DTHENGOSUB55@ :D=7768+Y srem 69 
IFB=EORB-44=EORB-88=ETHENGOSUB5 5@ : E=7768+W srem 72 
IFB=KORB-44=KORB-88=KTHENGOSUB55@ :K=7768+V :rem 96 
POKEB, M: POKEB-22, M: POKEB-N, M: POKEB-66, Ms POKEB-88,M: POKEB+ 
22,M: RETURN srem 33 
POKE 36878, 15:POKE36877,159:FORI=1TO1900 : POKE36878,@8 
srem 143 
SC=SC+15:PRINT" {HOME}{21 DOWN}SCORE ";SC:RETURN :rem 127 


POKE36878,15: POKE36877,145:FORI=1TO50@ :NEXT: POKE36878,6:L 


I=LI-1 srem 9 
PRINT" {HOME}{21 DOWN}{13 RIGHT}LIFE ";LI:IFLI>@THENRETURN 
srem 43 
PRINT" {CLR}{11 DOWN} {6 RIGHT}GAME{ RIGHT}OVER!":PRINT" 
{5 RIGHT}PLAY AGAIN ?" :rem 104 
IFSC>HITHENHI=SC :rem 30 
PRINT"{4 UP}{4 RIGHT}HIGH SCORE";HI:PRINT"{6 RIGHT}SCORE 
{SPACE}";SC srem 143 
GETAS : I FAS=""THEN649 srem 87 
IFAS="Y"THENGOTO2@ srem 51 
PRINT" {CLR} {BLU}": POKE36879,27:END :rem 63 
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— Balishot 


“Hyper Ballshot” is a good old-fashioned target game for the unexpanded 
VIC. It is a two-player game using paddles. 

Across the top of the screen you'll see each player’s score, the time 
clock, and the level the player who is playing reached. Near the top of the 
game board is the area where the targets will appear. The blank areas are 
where the targets will appear one at a time. The target’s level, up to ten, has 
its own color. These colors are red, cyan, purple, green, and blue. After blue, 
the sequence repeats again. The value for these targets is ten times the level 
number. However, the yellow targets are worth minus five times the level 
value. So accuracy counts a lot. 

Each player takes a turns which lasts 90 seconds. Begin each round by 
pressing and releasing the fire button. When you do this, the clock resets to 
zero. Using the knob line up the ‘‘shooter’’ with the target. When you press 
the fire button, the top and side bars turn orange and a ball flies into the 
target. 

When you type in the program, be extra careful of lines 1000 and 
greater. All DATA statements, except the last one, have nine numbers. The 
last one has ten. 

When you run the program, if you have an error in lines less than 1000, 
press RUN/STOP-RESTORE, correct the mistake, and restart the program 
by typing RUN2. If you just run the program, you will get an OUT OF 
MEMORY message. Be sure to use the integer arrays as shown. Not typing 
the percent (%) sign increases the memory needed for the arrays, and the 
program will not run. 


Hyper Ballshot 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,”” Appendix C. 


1 GOSUB296 :GOTO1LBDOBO srem 119 
2 GOSUB200 srem 68 
4 DIMW3(8,5,1),H%(16),S(1) :V=36878 :GOSUB78@ : POKEV-9, 255 : POKEV 

,47:POKEV+1 ,9:GOSUB30@0 srem 97 
5 H=8:B=2:T=38864 :MM=T+7 srem 116 
38 FORI=1TOL5STEP2 :H%(1I)=1 :H%$(I+1 )=-1 :NEXT: POKEV ,47 srem 46 
35 TIS="Q0GG130" :PR=8:KK=7 srem 91 
4G M=M-SGN (M-(15-( INT( PEEK( 36872+PR)/18.2)))) :rem 269 
55 K=T+M: POKEMM+22,@0:POKEK+22 ,9:MM=K srem 176 


68 GOSUB600: IFF (PR) THENPOKEV, 143:GOSUB5@@ : POKEV, 63 srem 153 
70 PRINT" {HOME} {WHT }"TAB(13);"TIME";MIDS(TIS$,4,1);":"+: RIGHTS ( 


TIS,2) :1FF(PR)=OANDHTHEN8@ srem 185 
75 PRINT" {HOME}SCORE#1{5 SPACES}{5 LEFT}";S(@):PRINT" {HOME} 
{2 DOWN}SCORE#2{5 SPACES}{5 LEFT}":S(1) srem 114 


76 PRINT" {HOME}{2 DOWN}";TAB(13);"LEVEL#"+:B-1+BB:H=-l:rem 251 
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88 IFTIS="909130"THENGOSUB880 :GOSUB79@ srem 254 

98 GOTO4G srem 6 

200 PRINT" {CLR} {BLU}"TAB(4)"HYPER BALLSHOT" srem 15@ 
2063 PRINTTAB(9);"{DOWN}BY:":PRINTTAB(5);"{DOWN}ROBERT LEWIS" 

srem 238 

285 PRINT" {4 DOWN}YOU WILL NEED PADDLES" srem 25@ 
218 PRINT"{2 DOWN} {RVS}STAND BY FOR THE GAME[{8 SPACES}TO BEGI 

N{7 SPACES }" srem 151 

220 RETURN srem 116 
308 GOSUB390:PRINT"{CLR}{5 DOWN} {RVS}K*}{OFF}{2 SPACES}"; :T=3 


319 


320 


330 
348 
358 


368 
380 
398 
58 


585 
519 
515 


526 
530 
549 
609 


619 
706 


716 
726 
730 
740 
750 
760 
796 


88 
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2:GOSUB38@:PRINT"{2 SPACES}{RVS}£{OFF}":PRINT"{RVS} £*} 
{OFF} "; :GOSUB38@ srem 91 
PRINT" {RVS}£ {OFF}":PRINT" {BLU} {RVS}{2 SPACES} {OFF}*";: 
T=86 :GOSUB380:PRINT"*{RVS}{2 SPACES}{OFF}":PRINT"{RVS} 

{2 SPACES} {OFF}>{WHT}"; :T=94:GOSUB389 srem 6 
PRINT" {BLU}<{RVS}{2 SPACES}{OFF}":PRINT"{RVS}{2 SPACES} 
{OFF}>";:FORB=1TO7:PRINT"{YEL}£{BLK} ]"; :NEXT: PRINT" {YEL} 


Y{BLU}<{RVS}{2 SPACES} {OFF}" srem 226 

GOSUB39@:PRINT"{RVS}{2 SPACES}{OFF}@{BLK}"; :T=98:FORH=1TO 
4:FORPR=1T0O3 :GOSUB388 s:rem 1790 
GOSUB39@ :PRINT"@{RVS}{2 SPACES} {OFF}":PRINT"{RVS} 

{2 SPACES} {OFF}@{BLK}"; :NEXTPR: T=T-1 :NEXTH srem 181 
T=6 1 :GOSUB38@ :GOSUB39@:PRINT"@{RVS}{2 SPACES} {OFF} {WHT} 

{ HOME } " srem 66 
RETURN srem 121 
FORB=1T015 : PRINTCHRS(T); sNEXT: RETURN srem 118 
POKE646 , 9: RETURN srem 234 
POKEK, 7: FORY=1TO11 : POKEK-(Y*22)+22,@: POKEK-(Y*22),7:POKEV 
—-2,240-Y* 2 :NEXTY :J=K-Y* 22 srem 147 


IF-(H%(M) ) THENS(PR)=S(PR)-5* (B-1+BB) : POKEV-3,128 :rem 188 
POKEV-2 ,@:POKEJ+22,0:POKEV-3,@:IFH%(M)THENRETURN :rem 219 
IFM/ 2=INT(M/2) THENPOKEJ ,@:S(PR)=S(PR)+10* (B-1+BB) :H%3(M)=- 


1 :X=X+1 :POKEV-3,255 srem 166 
I FX=7 THENX=@ : B=B+1 : IFB=7 THENB=2 : BB=5 srem 204 
GOSUB79@ srem 184 
POKEV-3 ,9: RETURN srem 244 
POKE37154,127:F(1)=-((PEEK(37152)AND128 )=@ ) :POKE37154,255 
srem 37 
F(@)=—-((PEEK( 37137) AND16)=@) : RETURN srem 166 
FORMM=9 TO1 : FORB=@TO5 :W%3(@,B,MM)=INT(RND(1)*7)+1:NEXTB,MM 
:rem 137 
FORMM=@TO1 : FORB=0TO5 : FORT=1 TO6 : POKEV+1, 25+T srem 235 
H=INT(RND(1)*7)+1 srem 125 
FORPR=8TO7 s:rem 196 
IFW%(PR,B,MM)=HTHEN72@0 srem 26 
NEXTPR:W%(T,B,MM)=H:NEXTT,B,MM srem 146 
RETURN srem 125 
POKET—12* 22+W%(X,B-2,PR)*2,B:H%(W%(X,B-2,PR)*2)=0:RETURN 
s:rem 145 
POKET-12* 224+W%(X,B-2,PR)*2,0:H% (W(X, B-2,PR)*2)=—-1: POKEV, 
47 srem 225 


884 
885 


819 
826 
830 
846 
919 
958 
960 
9709 


1988 


1819 
1920 
1939 
1848 
1856 
1188 
1119 
1120 
1130 
1146 
1158 
1169 
1176 
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FORQ=1TO19@ : POKEV-3, 255-Q:NEXT: POKEV-3,@ srem 207 
IF-PRANDTIS=>"888130"THENPRINT" {HOME}{4 DOWN} {WHT }ANOTHER 
GAME? {RVS}(Y OR{SHIFT-SPACE}N) {OFF}":GOTO95@ :rem 38 
X=0:B=2:I1FS(@) <>OTHENPR=1 :BB=8 :H=2 srem 233 
GOSUB60@ : IFF(PR)=OTHEN82G srem 232 
GOSUB60@ : IFF (PR) THEN83@ srem 125 
TIS="G@OOGGOO" : POKEV, 95 : RETURN srem 113 
NEXT: END srem 234 
GETAS : IFAS=""0R(AS<>"Y"ANDAS<>"N" ) THEN95@ srem 17 
IFAS="Y"THENPOKEV-9, 248 : RUN2 srem 170 
POKEV=-9, 246 : POKEV+1 , 27: PRINT" {CLR} {BLU}GOODBYE!!!!1!":POKE 
56, PEEK(56)+2:END srem 183 
X=PEEK(56)-2:POKE52,X: POKE56,X:POKE51,PEEK(55):CLR 
srem 56 
CS=256* PEEK(52)+PEEK(51) srem 64 
FORI=CSTOCS+511:POKEI, PEEK(1+33792-CS) :NEXT srem 205 
READX : IFX=@ THEN2 srem 39 
FORI=XTOX+7 : READY : POKEI , Y: NEXT srem 70 
GOTO1930 srem 195 
DATA7352,28,580,125,127,127,127,62,28 srem 20 
DATA7360,0,28,54,58,62,62, 28,@ srem 231 
DATA7368,0,0,24,52,60,60,24,@ srem 165 
DATA7376,0,90,16,40,56,16,8,@2 srem 115 
DATA7392,255,165,231,153,153,239,165,255 srem 235 
DATA7400,126,102,98,102,182,99,1902,126 s:rem 92 
DATA7468,0,0,68,126,165,231,189,129 srem 228 
DATA7168,198,198,198,198,198,198,198,1998,@2 :rem 69 
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Laser Command 


Scout ships from the planet Zardon are orbiting our planet to determine the 
chances of a successful invasion. Your mission, as First Master Gunner of La- 
ser Defense Post One, is to destroy as many of the scout ships as possible. 
Your commander thus hopes to prove to the Zardon Empire that the risks of 
invasion are too great. Will you be able to down enough scouts alone? The 
commander thinks not and assigns Second Master Gunner to Laser Defense 
Post Two. Now you must prove you deserve the title of First Master Gunner 
by scoring the most hits. 

This exciting game requires the Super Expander cartridge and paddle 
controllers. If you had thought the Super Expander was merely for drawing 
graphs and pictures, then look again. These extra graphics capabilities can 
greatly enhance game play. In this game, the paddle controllers are used to 
direct laser beams at precise angles on the screen. 


Special Features 
When you run “Laser Command,” it first checks to see if you have inserted 
the Super Expander by PEEKing memory location 56 (top of RAM). The value 
found there should be 29 if the graphics screen has not yet been set up with 
a GRAPHIC command. 

To set up the graphics screen, the Super Expander sets aside over 3K of 
memory for bitmapping a 20 X 20 space area. The top-of-RAM pointer is set 
to 16. Using the GRAPHIC4 command will reset the pointer to 29. This is 
why you seem to lose over half the memory indicated on cold start after using 
GRAPHIC1, GRAPHIC2, or GRAPHIC3. You actually do lose it to the 
graphics screen and should bear this in mind when writing programs. This 
program uses all but about 30 bytes in execution, so it would be wise not to 
add unnecessary spaces when typing it in. 


Beginning Play 
After pressing a controller fire button, you may center the screen with the 
cursor keys. You then have the option of playing against the computer or an- 
other player. If you choose to play against your VIC, be aware that it will 
prove to be a formidable opponent. The better you play, the harder the com- 
puter tries to beat you. This automatic level control is programmed in line 600. 
Keep practicing: Experience will help you beat the VIC! 
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Laser Command 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 


195 IFPEEK(56)=29ORPEEK(56)=16THEN115:REM CHECKS FOR SUPER EX 


PANDER srem 54 
110 PRINT" {CLR} {RVS}{RED}REQUIRES SUPEREXPANDERINSERT AND REL 
OAD GAME" :END srem 4 


115 PRINT"{CLR}{3 DOWN}{RVS}{BLU}REQUIRES PADDLE CON- 
{2 SPACES}TROLLERS. PUSH A FIRE{3 SPACES}BUTTON TO START. 


{4 SPACES }" srem 13 
12@ IFRJOY(9@)=O0THEN12@ srem 22 
125 GOSUB5490:Z=RND(-TI):REM RANDOMIZE srem 72 
130 GRAPHIC2:COLOR14,4,9,9 srem 254 
135 CHAR®,9,"PO":CHAR19,9,"@L":CHARO,@,"L":CHAR9,19,"@":CHAR1 
@,0,"O0":CHAR1®,19,"P srem 179 
148 REGION2:CHAR3,1,"Z LASER{2 SPACES}COMMAND Z :rem 235 
145 REGION1 :CHAR6,2,"*USE CURSOR KEYS":CHAR8,2,"TO CENTER SCR 
EEN srem 124 
15@ REGION4:CHARI11,4, "CHOOSE ONE: srem 211 
155 REGION1:CHAR14,90,"1. YOU VS. COMPUTER":CHARI16,90,"2. 2 PLA 
YER/PRACTICE srem 253 
168 GETAS:REM SCREEN CENTERING AND MENU SELECTION srem 7 
165 IFAS="{ RIGHT} "THENPOKE36864, PEEK( 36864) +1 :GOSUB54@: IFPEEK 
(36864 )=12THENPOKE36864, 3 srem 165 
178 IFAS="{ DOWN} "THENPOKE36865, PEEK(36865)+1 :GOSUB54@ : IFPEEK ( 
36865 )=44THENPOKE36865, 29 srem 205 
175 IFAS<>"1"ANDAS<>"2"THEN16@ srem 110 
188 POKE785,VAL(AS):REM STORES SELECTION FOR FUTURE REFERENCE 
srem 38 
185 SCNCLR:COLORG6,2,1,2 srem 105 
198 CHAR1,@,"{2 SPACES}BLAST THE UFOS srem 39 
195 CHAR3,9@, "THAT FLY ABOVE THE :rem 4 
288 CHAR5,@,"LASER DEFENSE POSTS. srem 199 
205 CHAR7,@,"YOU GAIN 198 POINTS srem 32 
218 CHARY,@,"FOR EACH HIT BUT srem 92 
215 CHAR11,@,"LOSE 18 POINTS FOR srem 26 
228 CHAR13,@,"EACH MISS. srem 59 
225 CHAR15,@, "TIME LIMIT: 3 MIN. srem 244 
230 REGIONRND(1)*8:CHAR18,@,"*PRESS FIRE BUTTON. * :rem 157 
235 GOSUB54@4 srem 179 
246 IFRJOY(@)=O8THEN23@0 s:rem 27 
245 GOSUB54@ srem 180 
25@ SCNCLR:CLR:COLORG,6,0,8:GOSUB550:REM SCREEN AND VARIABLE 
{ SPACE} SET-UP srem 131 
255 SX=1000:SY=SX:B=6:SS="_ ":US="Z";S=1]1 :H=PEEK( 36864) : V=PEEK ( 
36865) :P=PEEK( 785) 7 :rem 173 
266 GOSUB58@ :GOSUB585 s<rem 17 
265 REM DRAW DEFENSE POSTS srem 66 
278 REGIONS srem 146 
275 DRAW2, 311,1923T0361,835T0411,1023:PAINT2,361,99@ :rem 88 
280 REGION4 srem 146 
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DRAW2 ,612,1923T0662,835T0O712,1023:PAINT2,662,900 :rem 105 
TIS="GGOGBIA srem 219 
IFSX=G@ORSY=9 THEN485 :rem 2069 
RJ=RJOY(8)/4:IFTIS>"GGG300"THEN485 :rem 147 
REM FIRING ROUTINES :rem 180 
X=RPOT(@)*4:IFRDOT(X,PZ)<>QAND(RJ=l1ORRJ=3 ) THENXZ=1 

srem 162 
Y=RPOT(1)*4:IFRDOT(Y,PZ)<>@AND( RJ=2ORRJ=3 ) THENYZ=1 

srem 172 
REGION1 : SOUND@, (RJAND1 )*239,0,0,3:IFRJ=GORRJ=2 THENGOSUB54 
G:GOTO35G srem 65 
DRAW2, 361,815TOX, PZ srem 91 
DRAWS , 361 ,815TOX, PZ :rem 85 
IFRJ AND 1 THENSX=SX-12 :rem 26 
IFXZ=1THENGOSUB415 srem 143 
XZ=8 :GOSUB58@ srem 18 
REGION1 :SOUND@ ,@, (RJAND2)*161,90,3:I1FP=1THENS595 srem 262 
IFRJ=@ORRJ=1 THENGOSUB54@ :GOTO385 s:rem 59 
DRAW2 ,662,815TOY, PZ s:rem 95 
DRAWS , 662, 815TOY, PZ :rem 98 
IFRJAND2THENSY=SY-19 :rem 28 
IFY Z=1 THENGOSUB415 s:rem 152 
YZ=90 :GOSUB585 srem 23 
REGIONINT( RND( 1 )*6+2) s:rem 195 
REM UFO MOVEMENT srem 213 
CHARZ,Q,SS$ :Q=Q+S: IFQ=200RQ=-1 THENGOSUB55@ srem 95 
CHARZ,Q,US srem 46 
GOTO295 srem 114 
REM EXPLOSION SUBROUTINE srem 74 
IFTIS>"@090230" THENB=2 s:rem 113 
CHARZ,Q,"V s:rem 175 
FORL=9TO@STEP-1 :rem 177 
POKE36864,H+1 : POKE36865,V+L: IFL=8THEN:COLOR1,7,9,@ 

s:rem 205 
POKE36864,H: POKE36865,V: IFL=7ANDXZ=1 THEN : COLOR6,5,9,@ 

s:rem 244 
POKE36864,H-1 : POKE36865, V-L: IFL=7ANDYZ=1 THEN: COLOR6 ,4,9,@ 

srem 199 
POKE36864,H: POKE36865,V:IFL=4THEN: COLORG,B,8,@ :rem 6 
SOUNDS ,9,8,175+L*5,L srem 33 
NEXT: CHARZ,Q,SS$ :GOSUB55@4 s:rem 3 
REM SCORING srem 147 
IFXZ=1 THENSX=SX+112 srem 205 
IFYZ=1THENSY=SY+119 srem 204 
RETURN srem 128 
REM END OF GAME srem 6 
FORL=1TO5@@ :NEXT:SOUND@ ,8,9,8,@ srem 86 
REGION7 :rem 152 
CHAR5,@, "REPLAY ~— PRESS FIRE s:rem 76 
CHAR7,@,"RESELECT —- HIT SHIFT srem 123 
CHARO,@8, "QUIT -—- PRESS SPACE z:rem 4 
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FORL=1T0999 :sNEXT srem 254 
COLOR(VAL( RIGHTS(TIS,2))+2)/4,VAL(MIDS(TI$,5,1))+2,9,@ 
srem 189 
IFRJOY(@)<>O@THENFORL=1T0O15@ : NEXT :GOTO245 s:rem 37 
IFPEEK (653 )=1THENCLR:SCNCLR:GOTO130 srem 195 
IFPEEK(197)=32 THEN :GRAPHIC4 : POKE36879, 27: PRINT" {CLR} {BLU} 
"sGETAS :END srem 215 
GOTO515 srem 113 
FORL=1T075 :NEXT: RETURN: REM MULTI-~-PURPOSEDELAY s:rem 79 
REM UFO DIRECTION AND ALTITUDE srem 69 
Z=INT(RND(1)*8+5) :PZ=Z*(55-Z*.1):REM LASER ALTITUDE FACTO 
R s:rem 181 
S=-S srem 175 
IFS<@8@THENQ=19 :rem 16 
IFS>OTHENQ=0 srem 221 
RETURN :rem 124 
REM DISPLAY SCORE srem 23 
REGIONS : CHARI ,@, STRS(SX)+SS : RETURN srem 124 
REGION4 :CHAR1,19-LEN(STRS(SY)),STRS(SY) :RETURN srem 144 
REM COMPUTER FIRE CONTROL SUBROUTINE srem 72 
Y=INT(RND(1)*1924) s:rem 204 
IFRND(1)<SX* .0@03 THENY=Q* (55-Q*.1) s:rem 143 
IFRDOT(Y,PZ)<>OTHENYZ=1 :rem 221 
SY=SY-10:SOUND9 ,90,202,08,3 s:rem 132 
GOTO360 srem 110 
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Space Blockade 


Warp-speed action (well, almost) and an ever-changing kaleidoscope of color 
graphics are only part of the unusual game features of ‘Space Blockade” for 
the unexpanded VIC. 


Running the Blockade 

The game field consists of a bordered playing screen that begins to fill with 
randomly located alien symbols. Meanwhile, blockading bricks also begin 
appearing. A white spaceship character, which serves as a shooter, is located 
at the top of the screen. The shooter can be pointed up, down, right, or left 
and is moved by using the joystick. The aliens serve as targets that are ex- 
ploded by aiming the shooter and pressing the fire button. The bricks act as 
barriers that stop shooter movement. The object of the game is to blast as 
many of the alien symbols as you can before being blockaded by the bricks. 

If you chose a play level of 6 from the scale of 1 to 9, the shooter will 
be stationary. Moving the joystick in any one of the four primary directions 
points the shooter accordingly. If the joystick is held in that position, the 
shooter will move slowly. Press the fire button and the shooter takes off at 
super speed until it is blocked by a brick or the wall. If the shooter was aimed 
at a target, the fire button must be pressed to explode the target and score. 

The action is faster if the shooter is aimed at a target and the fire button 
pressed. In this case the shooter zips to the target and obliterates it. The cur- 
rent game score, denoted by an S at the top of the screen, updates to score 
the hit. Scoring values vary based on the color of the target. The high score 
is denoted by an H at the top of the screen. 

Blue checkered bricks appear on the game field at random locations as 
new targets continue to show up. The bricks block the shooter's movement, 
forcing you to maneuver the shooter. Whenever you decide it is time to give 
up, the play can be ended by pressing the Y key. 


Easy or Hard 
You can choose a level of difficulty ranging from 1 (fast) to 9 (slow). Once 
you've chosen the level, the screen will blank for a few seconds while data 
for the custom graphics is POKEd to a protected memory location. The bor- 
dered game field then appears with the shooter located at top center of the 
border. 

At levels 1 to 5, the shooter will alternately rotate clockwise while 
remaining at its initial position. The speed of rotation is dependent upon the 
level of difficulty chosen. You must coordinate joystick action with the 
shooter direction in order to move the shooter. Of course, this makes the 
play more challenging and the scoring more difficult. 
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Play levels of 6 to 9 make the shooter easier to control. Within this 
range the shooter is fixed in its initial position until rotated and moved by 
the joystick. Shooter movement is relatively slow if the joystick is held in the 
direction of movement position. However, if the fire button is pressed when 
the shooter is pointed at a target, the shooter will zip to the target fast as a 
speeding bullet. 


Space Blockade 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,’’ Appendix C. 


19 POKES] ,@:POKE52 ,28:POKE55,@:POKE56,28:CLR:DIMJ (2,2) :POKE37 


139,8:POKE36879 ,93 s:rem 137 
15 PRINT"{CLR}" srem 202 
26 JA=37137 :JB=37152 :JC=37154: H=@ :N=0 : FORM=256T0274 : READD: POK 
EM, D:NEXT srem 225 
38 SYS256 :POKE36878,15 : FORM=7432T07551 : READD: POKEM, D:NEXT 

srem 51 
40 FORL=0TO2 : FORK=@TO2 :READJ(K,L) :NEXTK,L srem 119 

58 POKE36869 ,255:SS="*)*,**, eK, Re RK ee eK) ES M=7689 =C=30720 
srem 147 
60 PRINT" {CLR} {CYN}">; :POKE198 ,@:POKE36879,8 :FORX=9TO21 :PRINTS 
S: sNEXT srem 199 
78 PRINT" {HOME}{2 DOWN}"SPC(6)"{1@ SPACES }";SPC(12)"{PUR} BLO 
CKADE "; srem 67 
88 PRINTSPC(12)"{18 SPACES}{2 DOWN}"SPC(9)"{YEL}BY: JOE W. RO 
CKE" srem 243 
90 PRINT"{4 DOWN}{2 RIGHT}SELECT{2 SPACES} DIFFICULTY{ DOWN}";S 
PC(10)"1 {RVS}--{OFF} 9" | srem 251 
198 GETAS :IFAS>"9"ORAS<"1"THEN1OO :rem 54 
118 E=VAL(AS) :IFE> 5THENN=5 :E=E-5 srem 128 
120 S=0:R=0:PRINT"{CLR}":POKE36879,8 : FORL=M+23TOM+42 : POKEL, 39 
: POKEL+462,37:POKEL+C+462,3 :rem 120 
138 POKEL+C,3 :NEXT: FORL=M+44TOM+462STEP22 :POKEL, 38: POKEL+21,4 
@sPOKEL+C, 3 :POKEL+C+21,3 srem 231 
135 NEXT srem 216 
149 T=RND(-TI) :T=M+INT(RND(1)*20)+45:W=35 :POKET,W: POKE646,3:P 
RINT" {HOME} {GRN}"SPC(12)"H";H srem 237 
15@ FORL=1TOE:GOSU B33@ :U=J( X+1,V+1) :Y=T+U:IFPEEK( Y)=32THENPOK 
ET, 32: T=Y s:rem 173 
168 IFFBTHENGOSUB369 srem 246 
170 NEXTL:IFN<>5THEN22@ srem 172 
188 W=W-1 :I FU=22THENW= 34 srem 203 
198 IFU=-22 THENW=32 srem 116 
206 IFU=-1 THENW=35 srem 60 
218 IFU=1 THENW=33 srem 14 
220 IFN=9THENGOSU B360 :I1FR> 200 THEN45@ srem 226 
230 A=INT(RND(1)*6) :W=W+l : I1FW> 36 THENW=33 srem 134 
248 IFA=OTHENA=7 srem 183 
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PRINT" { HOME} { RIGHT} {YEL}S"S:POKET+C,A:POKET ,W: B=M+INT( RND 


(1)*449) +44 :U=INT(RND(1)*3)+41 srem 55 
POKET+C,1:B=Btl : IFB>8162 THENB=7725 srem 218 
IFPEEK(B)=32THENPOKEB, U:POKE36874 ,100+U:POKEB+C,A :GOTO319 

srem 226 
I FPEEK(B )=45 THEN26@ srem 78 
IFPEEK(B)<41THEN26@ s:rem 74 
POKEB, 45 : POKEB+C,3 :R=R+1 s IFR=398THEN459 srem 76 
POKE36874 ,@:I FPEEK (197 )=11THEN45@ srem 114 
GOTO15@ srem 100 


POKEJC,127 :S3=-( ( PEEK(JB)AND128)=0) :POKEJC, 255 :rem 127 
P=PEEK(JA) :Sl1=-((PAND8)=@) :S2=((PAND16 )=@) :S@=( (PAND4)=@) 


srem 172 
FB=-((PAND32 )=@) :X=S2+S3 : V=S0+S1 : RETURN srem 63 
I FW= 33 THEND=-—2 2 srem 99 
IFW=34 THEND=1 srem 5 
I FW=35 THEND= 22 srem 58 
I FW= 36 THEND=-1 srem 54 
Y=T+D: I FPEEK(Y)=32THENPOKET ,32:POKEY,W: T=Y:GOTO48@ 

srem 218 
I FPEEK( Y) < 410RPEEK( Y )=45 THENRETURN srem 185 
S=S+PEEK(Y) :POKEY,44:POKET,32:T=Y srem 59 
FORL=200T0220 : POKE36877 , L:NEXT: POKE36877 , 255 sFORL=1TO2@6: 
NEXT: POKE36877 ,@ :POKET ,W srem 22 
RETURN srem 1202 
POKE36869 , 248 : POKE36879, 253 srem 218 
N= :PRINT" {CLR} {BLK} {RVS}{2 DOWN}"SPC(7)"GAME OVER":PRINT 
"{f4 DOWN} {RED} SCORE"S:IFS>HTHENH=S srem 162 
PRINT" {2 DOWN}{BLU} HIGH SCORE"H:PRINT"{4 DOWN} {GRN} 
{3 SPACES}PLAY AGAIN (Y/N)" :rem 187 
FORL=1T01200 : I FPEEK( 197 )=11THENS@ srem 182 
IFPEEK(197)=28THEN5194 srem 175 
NEXTL : N=9 : POKE36869 , 255 :GOTO120 :rem 101 


POKE36869 , 248 : POKE36879,27:PRINT"{CLR} {BLU} ":END :rem 116 
DATA 162,8,189,0,128,157,0, 28,189,9,129,157,%,29, 232,208, 


241,96, srem 6/7 
DATA 56,124,56,16,84,124,84,68,0,242, 39,127,39,242,0,0 
srem 41 
DATA 68,84,124,84,16,56,124,56,0,79,228,254,228,79,0,0 
srem 59 
DATA 255,0,1802,0,0,9,9,8,1,5,5,1,1,5,5,1 srem 47 
DATA 8,09,0,09,8,102,0,255,128,160,160,128,128,160,1698,128 
srem 96 
DATA @,24,60,192,255,60,24,0,0,56,108,198,214,198,198,56 
srem 132 
DATA 24,60,36,255, 36, 36,60,24,40,129,36,18,64,19,64,17 
srem 41 
DATA 178,85,1780,85,1708,85,170,85,09,0,89,9,8,9,9,8 :rem 224 
DATA 8,09,08,90,0,0,0,0 srem 109 
DATA-23 ,-22,-21,-1,0,1,21,22,23 srem 175 
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““Torpedo-8” is a simple, yet enjoyable, air defense game for the unexpanded 
VIC. Your job, as captain of the fleet of seven bomber planes, is to destroy as 
many of the enemy ships as possible. Maneuver your planes while avoiding 
enemy fire, and shoot when you think you can land a hit. 

Use the Z and slash (/) keys to move your plane to avoid the enemy 
ship fire. When you think you can make a hit, press the space bar and drop 
a bomb on a ship. When a plane is hit, it will go up in flames and quickly 
descend to the ocean. 


Torpedo-8 
For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 
4 PRINT"{CLR} {BLK} {6 DOWN}{6 RIGHT}TORPEDO-8" srem 190 
6 PRINT"{2 DOWN} HIT (Z) TO GO LEFT":PRINT" HIT (/) TO GO RIG 
HT"sPRINT" HIT (SPACE) TO BOMB" srem 180 
7 PRINT:PRINT" HIT ANY KEY TO START":FORO=1TO100 :NEXT: RESTORE 
srem 159 
8 POKE36879,25:P$%=7 : POKE659, 128: U=7882 srem 158 
9 T=O:PL&8=7 :DF%=166 :GETDS :I FDS="""THENY :rem 200 
18 S=INT( RND(1)*12)+2:Z=190:GOSUB15 :GOSUB14 srem 30 
11 REM***CHANGE PL% TO LENGTHEN GAME**CHANGE DFS FOR DIFF. FA 
CTOR***** srem 165 
12 GOTO29 srem 254 
13 REM****DRAW SEA***** srem 2@1 
14 PRINT"{HOME}{22 DOWN} {RVS} {BLU} IJIJIJIJIJIJIJIJIJIJI{OFF} 
{ BLK} {HOME }":GOSUB55 : RETURN :rem 234 
15 POKE36878,15 :POKE36875,200:L=0:PRINT"{CLR}{BLK}{5 DOWN}"TA 
B(P%)"{4 SPACES}- " srem 159 
16 POKE36876,148:PRINTTAB(P%)"{3 SPACES}*+*" srem 112 
18 PRINTTAB(P%)"K4 P}*k4 py" a :rem 121 
19 PRINTTAB(P%)" KCK {RVS}X{OFF} JKV}":RETURN srem 253 
28 A=7682+S:B=30728 :GOSUB21 :GOTO32 srem 223 
21 GETDS :I FDS=""THENRETURN :rem 188 
22 IFPEEK(197 )=32THENGOSUB48@ : RETURN srem 9 
27 IFP%=@THEN29 srem 116 
28 IFDS="Z "THENP%=P$-1 :GOSUB35@ : Z=Z-5 : L=L+l : RETURN srem 84 
29 IFP%>11THEN31 srem 162 
30 IFDS="/"THENP3=P$+1 :GOSUB38@ :Z=Z—-5 : L=L+l : RETURN srem 27 
31 GOSUBL5 :GOSUB14 : RETURN srem 131 
32 FORQ=440TO@STEP-22 : C$=PEEK(A+Q) : READA? : POKEA+Q+B,@ : POKEA+Q 
,A% :rem 135 
33 FORY=1TOZ:NEXTY : IFC%<> 32 THENGOSU B68 :GOSUB19@ srem 92 
34 IFPL%=S8THENQ=@ :Y=Z:GOTO680 srem 68 
35 POKEA+Q+B,1:Z=Z-5 srem 171 
36 IFPEEK( 197) <>64THENGOSUB21 :Q=Q-22 srem 175 
37 IFPEEK( 197 )=64ANDL>@THENGOSUB1L5 :GOSUB14 srem 120 
38 IFQ< 449 THEN4GZ :rem 178 
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POKEA+462,121 : POKEA+462+B,@ srem 157 
NEXTQ:RESTORE srem 82 
GOTO1@ srem 255 
REM****SHIP ON WATER****** :rem 69 
POKEA+462,121 : POKEA+462+B,@:RETURN :rem 181 
REM***PIRE FROM PLANE***** :rem 188 
POKEA+Q+B, 2: POKEA+Q , 127 :GOSUB7@3 : RETURN srem 119 
DATA46 , 46,46 ,46,126,126,126,191,101,1801,116,116,117,117,9 
7,97 :rem 1708 
DATA246 , 246 ,234,234,169,81,81,81,81,81 srem 70 
POKEA+Q+B,1 srem 76 
REM*** PLANE SHOT DOWN***** srem 184 
Z=60 srem 151 
GOSUB79@ srem 182 
FORW=QTO540STEP22 :PRINT" { HOME} { DOWN} {LEFT} {INST} ":POKE21 
8,158:POKE218,144 :rem 49 
GOSUB14 : POKE36878, 15 :POKE36875, 128+(W/1@) srem 35 
FORY=1T0OZ:NEXTY :Z=-5 :rem 71 
POKEA+Q , 194: POKEA+Q+B, 7 srem 59 
IFW> 25@THENPOKEA+Q+B, 2 srem 58 
I FW> 358 THENPOKEA+Q+B,@ srem 58 
NEX TW: Q=@ : POKE36876,@ srem 244 
GOSUB14 srem 121 
POKE36879 ,42 sFORY=1T025@ :NEXT: POKE36879 ,25:POKE36875 ,@:GO 
SUB790@ srem 49 
FORY=1T0158 :NEXT: PL$=PL$3-1 : RETURN srem 182 
REM*** PLANE= RIGHT* **** srem 234 
PRINT"{CLR}{4 DOWN}"TAB(P%)"{BLK} M" srem 121 
PRINTTAB (P%)"{2 SPACES }M" = srem 211 
PRINTTAB(P%)"{2 SPACES}KC}MMN" :rem 38 
PRINTTAB(P%)"{4 SPACES} {RVS}W{OFF}M" :rem 79 
PRINTTAB(P%)"{5 SPACES ]}M" 7 a srem 208 
PRINTTAB(P%)"{5 SPACES}KC}M" srem 145 
PRINTTAB(P%)"{7 SPACES}M" srem 209 
I FPEEK( 197 )=64THENGOSUB15 :GOSUB14 srem 24 
GOSUB14:RETURN srem 154 
REM*** PLANE-LEFT* * * * ** srem 194 
PRINT" {CLR}{4 DOWN}"TAB(P%)"{BLK}{7 SPACES}N" :rem 127 
PRINTTAB (P%)"{6 SPACES}N" am srem 214 
PRINTTAB(P%)"{3 SPACES }MNNKV}" srem 50 
PRINTTAB(P%)"{3 SPACES}N{RVS}W{OFF}" srem 82 
PRINTTAB(P%)"{3 SPACES}N" — :rem 218 
PRINTTAB(P%)"{2 SPACES }NKV}3" :rem 148 
PRINTTAB(P%)" N" a srem 219 
I FPEEK( 197 )=64 THENGOSUB15 :GOSUB14 srem 33 
GOSUB14 : RETURN srem 154 
REM****BOMB ROUTINE**** srem 22 
GOSU B7@3 :J=@0 :M=20 :K=97 : FORY=OTO264STEP22 srem 189 
I FPEEK( U+P3+Y) <> 32ANDQ>DF% THENGOSUB5@®@ : Y=264 :GOTO42@ 
:rem 188 
POKE36877 , 243-( Y/9) :POKE36878,15 :rem 227 
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IFPEEK (U+P%$+Y)=121THENGOSUB45@ : Y=264 :GOTO429 srem 163 
POK EU+P%+Y ,K: POKEU+P%+Y+B, 7 srem 105 
FORV=1TOM:NEXTV :rem 3 
POK EU+ P$+Y, 258 : POKEU+P%3+Y+B,@ srem 134 
IFY> 220THENK=46 :GOTO418 srem 134 
IFY> 110 THENK=116 :GOTO418 s:rem 179 
IFY> 154 THENK= 39 :GOTO418 srem 144 
IFY> 66 THENK=117 :rem 119 
IFPEEK( (U+P$+Y) -22)=58THENPOKE( U+P$+Y)-22,32 srem 234 
M=M-l :NEX TY srem 164 
POKEU+ P%+Y,88 : POKEU+P%+Y+B, 2 sGOSUB709 srem 224 
GOSUB793 :GOSUB15 :GOSUB14 : RETURN srem 9 
GOSUB793 :FORK=1T0O5 srem 191 
POK EU+ P$+Y , 233 : POKEU+P%+Y+B, 2 s:rem 183 
FORC=1T0O3@8 :NEXT s:rem 177 
POK EU+ P%+Y , 223 : POKEU+P%3+Y+B, 7 srem 188 
FORC=1TO30 :NEXTC,K srem 198 
POK EU+ P$+Y , 32 s:GOSUB79@@ : Q=08 srem 304 
T=T+500 :RETURN srem 95 
GOSUB793 : POKEU+P$%+Y , 42 s:rem 35 
FORO=1TO5 :rem 22 
POK EU+ P$+Y+B, 2 srem 9 
FORC=1T0O298 :NEXT srem 173 
POK EU+P%+Y+B, 7 :rem 20 
FORC=1T024 sNEXTC,0:GOSU B7@@ :rem 189 
Q=8 : RETURN srem 117 
REM**** END OF GAME**** s:rem 84 
PRINT" {CLR} {6 DOWN} {6 RIGHT}GAME OVER":PRINT:PRINT 

srem 242 
PRINT" YOU LOST 7 PLANES":PRINT:PRINT" YOU SCORED"T"PTS." 

:rem 238 
PRINT:PRINT:PRINT:PRINT"{5 SPACES}PLAY AGAIN?" :rem 150 
PRINT: PRINT"{4 SPACES}HIT (Y) OR (N)" srem 7 
GETDS :rem 228 
IFDS="N"THENPOKE6598 ,8:END srem 205 
IFDS="Y"THEN6 82 s:rem 59 
GOTO669 srem 119 
FORO=1T018:GETYS :NEXT:GOTO1] :rem 250 
REM*** SOUND EFFECT**** srem 223 
POKE36877 ,128 srem 156 
FORO=15 TO@STEP—1 : POKE36878 ,O:GETDS srem 84 
FORR=1 T0408 :NEXTR,O :rem 141 
FORC=36874T036878 :POKEC ,@:NEXT: RETURN srem 91 
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So there you are, drawing another smiling face on your television screen 
with your Super Expander cartridge, impressing yet another relative. But, 
really, what can you use the Super Expander for? If you’re like me, you may 
have realized that instead of using all the great built-in features of the Super 
Expander, you have ended up using it only for the extra memory. This, there- 
fore, became the big question: How can I utilize the full potential of the VIC 
Super Expander? 

The answer was “‘‘Sevicog,” a game in which you test a new top-secret 
antimissile defense system code-named SEVICOG, which is embedded in a 
miniscule asteroid beyond the orbit of Mars. This test will measure the effec- 
tiveness of such a system before it is installed on Earth. 

Several features were incorporated into Sevicog to make the game more 
interesting. First, you can input the number of targets you would like to de- 
scend down the screen at one tiine. Second, as the score increases, your radi- 
ation cloud disperses more slowly, and the missiles reappear lower and 
lower on the screen. As all of this goes on, you will find it getting harder to 
move quickly. However, to overcome this penalty, you can hold the button 
of the joystick down as you push the joystick in the desired direction to ac- 
tivate a quick-move feature. Pressing the fire button alone will explode your 
radiation bomb. 

Now, before you type in the game itself, here are a few words about the 
program. For one, you obviously must use the Super Expander. Second, inte- 
ger variables and the period are used to represent constants and zero, respec- 
tively. This greatly increases the speed of the program. Finally, there is some 
memory left if you want to make your own changes. You might want to 
change the equation for the falling missiles (line 10) from a line to a parabola 
or even a trigonometric equation. Also, you can try to make an even more 
dramatic ending or add an option to allow multiple firings. 

To play the game, move your bomb under the falling missiles and press 
the fire button to explode the radiation cloud. You can also run over the fall- 
ing missiles to destroy them. 


Sevicog 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


1 PRINT"{CLR}HOW MANY TARGETS?{5 SPACES}(1-20)":INPUTN% : IL FN%> 


2@0ORN$<1THEN1 :rem 28 
2 GRAPHIC1:COLOR.,6,1,8:N%=N%—1 : DIMM(N%,1),A(N%),B(N%) :X=511: 
Y=X :SC=1 srem 215 

3 FORZ=.TON% :GOSUB9OG sNEXT: M=6. 375 :N=M* 2 :W%=1020 : V%=9600 
s:rem ol 
5 DRAW2,.,W%$T054, 987TO102,1911TO123,977T0O198, 1YVBBTO308,1015TO 
333,978T0367,1861 :rem 68 
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6 DRAW2, 367,19901T0400 ,975T0458,999T0511, 969T0558,989T0575,161 


GT0634,999TO0780,994 srem 225 
7 DRAW2, 700,994T0O724,1011TO880 ,971TO880 , 999TO0IB2 , 97GTOIBD, 11GB 
9T0958,999T0O19828 , 969 :rem ll 
8 PAINT3 ,W%,W% srem 55 
18 FORZ=.TON%:POINT.,M(Z,.),M(Z,1):M(Z,1)=M(Z,1)+M*2:M(Z,. )=( 
M(Z,1)-B(Z))/A(Z) :rem 173 
15 J=RJOY(.):GOSUB1O8:IFRJOY(.)>.THENGOSUBLAG srem 59 
20 IFM(Z,.)>W%ORM(Z,.)<.THENGOSUB90G:M(Z,1)=. srem 156 
25 IFM(Z,1)>V%THENS7@ srem 211 
38 IFRDOT(M(Z,.),M(Z,1))>2THENA=Z :GOSUB95@ :GOSUB9B@ srem 113 
35 IFQ%=.THEN5@ srem 108 
4D FORA=.TON% : IFRDOT(M(A,.),M(A,1))>1THENM(A,1)=.:GOSUB959 :GO 
SUB968 sNEXT:GOTO52 :rem 66 
45 NEXT '  srem 168 
52 POINT2,M(Z,.),M(Z,1):NEXT:CHAR.,.,S$:GOTO1@ srem 240 
106 POINT.,X,Y :rem 82 
161 J=RJOY(. ) :X=X+(( (JAND4)=4)-( (JAND8)=8) )*N*P:Y=Y+(((JAND1) 
=]1)-((JAND2 )=2))*M*P srem 239 
192 IFJ>128THENP=P+1/(SC*.@5) :GOTO104 srem 136 
193 P=1/(.95*SC) :IFP>3THENP=3 srem 158 
194 IFX<.THENX=. srem 216 
105 IFY<.THENY=. :rem 219 
186 IFX>WSTHENX=W% srem 122 
107 IFY>V%THENY=V% | :rem 121 
198 POINT3 ,X,Y: I FQ%=lANDTI>SC*4THENI=I-1 :GOSUB680 : TIS="BGBGGD 
- srem 246 
189 IFJ<>1280RQ%<> .THENRETURN s:rem 86 
119 SOUND.,.,-,245,15:DRAW1,511,V%TOX,Y:DRAW. ,511,V%TOX,Y:Y2= 
Y:GOSUB5@@ srem 3 
111 RETURN srem 115 
590 Y2=ABS (Y2-2@) :FORI=1T05 :D(1I)=ABS (X-INT(RND(.)*75)):DRAW3, 
D(I),Y2TOD(1I)+65,Y2 srem 174 
5905 SOUND.,.,.,200,15-I*3:Y2=Y2+M:NEXT:Q%=1 :I1=6:TIS="QQGLGGBO": 
SOUND s+) ©, 050; s:rem 175 
510 RETURN srem 118 
608 Y2=Y2-M:DRAW.,D(1I),Y2TOD(1)+65,Y2:IFI=1 THENQ3=. srem 24 
610 RETURN srem 119 
998 A(Z)=RND(. )*10-4.5:IFA(Z)=.THENIOD srem 92 
985 M(Z, .)=INT( RND(Z)* 700)+300:B(Z)=M(Z,1)—-M(Z,.)*A(Z):RETURN 
s:rem 223 
958 SOUND.,225,.,.,15:SC=SC+tl1 :SS=STRS(SC-1) :M(A,1)=SC*18:IFM( 
A,1)>888THENM(A,1)=8602 :rem 158 
960 SOUND.,.,+,+,+:RETURN srem 216 
976 M(.,1)=M(Z,1):M(.,.)=M(Z,.):A(.)=5@ srem 232 
975 FORI=.TO4@:B(.)=RND(.)*800+1980:SOUND.,.,129,200,15:Q%=Q3+ 
1 :ITFQ%=4THENQ$=1 :rem 69 
986 DRAWQ3 ,M(.,.),M(.,1)TOB(.),A(.) s:rem 69 
985 DRAW. ,M(.,-),M(.,1)TOB(.),A(.):SOUND.,.,.,1+128,15:NEXT 
srem 228 
998 SOUND.,.,.,-,+:GRAPHIC4:PRINT"{CLR}SCORE: ";SS srem 51 
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You are serving as a gunner in the United States Air Force, and you're sta- 
tioned at the fore of a squadron of backfire bombers. Your mission is to de- 
stroy enemy planes (a multicolor mode ball) which appear in front of the 
backfire bombers (after all, they can only shoot backward!). You will get a 
view from the cockpit window in which you can see the enemy jet in front 
of you weaving around in the air. You must maneuver your jet so that the 
enemy plane is centered in your view, to the place where the arrows at the 
side and top of the screen converge. To shoot at the jet, you press the joy- 
stick fire button. 

But there is more to this than meets the eye. You must destroy the en- 
emy jet before you run out of fuel and plunge to the earth. Also, a common 
trick of the enemy is to try to lure you into crashing into the mountain 
peaks, so you must try to maintain altitude. You'll also crash if your altitude 
is below 100 feet. You lose height when you pull down on the joystick and 
gain it when you push up. You have an altimeter at the bottom left which is 
updated every time you destroy an enemy jet. 


How It Works 


The play portion is a short loop which branches off to a number of sub- 
routines. The moving of the enemy plane is done in lines 7 and 8. First, a 
random number is chosen and the data pointer is moved that far. The num- 
ber that it’s resting on is then added to the current position of the enemy 
fighter. Here’s an outline of the subroutines: 


1000-1012 Read joystick (see Programmer's Reference Guide for details) 
2000-2009 ‘Print game screen 

3000-3003 ‘Firing sequence 

4000-4009 Explosion sequence and update score 

5000-5007 End of game display 

5999-6013 Screen for level input 

7000-7200 New high-score sequence 

8000-8006 Out of fuel sequence 

9000-10002 Check current altitude 


some Hints 
This game is difficult to get the hang of, and it may take several hours or 
even several days to get accustomed to the controls and get to the point 
where you can complete the game. You must always remember to keep com- 
plete control over the enemy plane by using the joystick. Always grip it 
firmly, because if you let go and the enemy jet floats off to the side of the 
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screen, it will take quite some time to get it back to the center. Also, if you 
see the message YOU’RE HEADED FOR A MOUNTAIN! appear at the top 
of the screen, instantly push up on the joystick, and you'll be temporarily 

safe. The faster you destroy the plane in front of you, the better your score 


will be. 
Good luck! 


Pilot 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


@ PH=@:NAMES="NO ONE":GS="{32 SPACES}" 


srem 218 


1 GOSUB5999 :POKE36879,184:TIS="999800" :POKE36877,135: TU=0 :AL= 


450:RESTORE srem 248 
2 FORT=38444T0388 39 : POKET , 80R8 : NEXT : GOSUB2000 srem 82 
5 T=TI:X=7910:POKEX,81 srem 89 
7 Z=INT(RND(1)*12)+1 :FORM=1TOZ : READY : NEXT s:rem 992 
8 DATA 9,-23,-22,6,-21,-1,9,1,21,0,22,23 s:rem 100 
9 GOSUB1O9OG : POKEX, 81 s:rem 208 
19 IF(TI-T) >5500THEN8GOO srem 94 
11 RESTORE :GOTO7 s:rem 48 


1808 POKE37154,127:P=PEEK (37152) AND128 :J@=—( P=) :POKE37154,25 
5 : P=PEEK( 37151) s:rem 6 
1981 J1l=-((PAND8)=@) :J2=-((PAND16)=9) :J3=—( (PAND4)=@) :FB=-((P 
AND32 )=0) srem 20 
1902 IFFBTHEN3992 srem 204 
1903 IFJOTHENY=Y+1 :GOTO1919 srem 124 
19004 IFJ2THENY=Y-1 :GOTO191@ srem 129 
1005 IFJ1THENY=Y+22 :AL=AL-10:IFAL<19@THEN1 9988 :GOTO1G1@ 
:rem 20 
1906 IFJ3THENY=Y-22 :AL=AL+194 srem 159 
1918 IFX+Y*0>80530RX+Y* O< 7724 THENY=-Y :rem 5 
1811 X=X+Y*O:POKEX-Y*O, 32 :POKEX,81 srem 84 
1912 RETURN srem 164 
2000 PRINT"{HOME}{7 DOWN} {BLU} 1{LEFT } {DOWN}-{ LEFT} {Down }- 
{LEFT } {DOWN }-{ LEFT} {DOWN}JM{2 LEFT }{DOWN}UN{2 LEFT} 
{ DOWN }-{ LEFT} {DOWN }-{LEFT } [DOWN }-{LEFT}{DOWN}K" :rem 144 
2081 PRINT"{5 SPACES}{BLK}U*1I{4 SPACES}U*I":PRINT"[5 SPACES }- 
{GRN}Q{BLK}-{4 SPACES]-[GRN}Q{BLK}-" srem 93 
2062 PRINT"{5 SPACES}-*J****K*—";PRINT"TRVS}£{4 SPACES }—**** 
*kk*k_[6 SPACES}K*¥}": a :rem 254 
2083 PRINT"{RVS}{5 SPACES}J**1**U**K{2 SPACES}K3 J}{2 SPACES} 
"; sPRINT"{RVS}{5 SPACES}ww -**-{9 SPACES}">: :GOTO9GGO 
oe srem 49 
2084 POKE8185, 160 :POKE389@5,@ srem 92 
2688 PRINT" {HOME} {OFF}{BLU} {7 SPACES }J**1I{LEFT } {DOWN}MN{ LEFT } 
{UP} U***K" trem 261 
2089 RETURN srem 171 
3800 POKE36878,15 :FORAZ=1T0O30:NEXT: POKE36878,0 :C=8108 :FORA=7T 


O1LSTEP-1 : POKEC+A, 77 :rem 147 
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3001 


3882 
3983 
4880 


4001 
49093 


4004 
4965 


4086 
4007 
4998 
4989 
5980 


50081 
5082 
5904 
5885 
5086 
5807 
5999 
6061 
6095 


6806 
6019 
6811 
6912 


6813 
1000 
7001 
7082 
78063 
71694 
7280 
89 BO 
8061 
8882 


8863 
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POKEC-A, 78 :C=C-22 : POKEC+2 2+A, 32 :POKEC+22-A, 32 :NEXT 


srem 184 
IFX=7954 THEN4000 srem 181 
RETURN srem 166 
POKE36879 ,138:POKEX , 32 : POKEX-45 , 46 : POKEX-22 , 46 : POKEX-21, 
46 : POKEX-2 , 46 : POKEX-1 , 46 :rem 69 
POKEX+1 , 46 : POKEX+2 , 46 s POKEX+ 22 , 46 : POKEX+ 23 , 46 srem 191 
FORI=15TO1STEP—2 :POKE36878,1:FORV=1TO190 :NEXT: NEXT: POKE3 
6878 ,0 srem 215 
SC=SC+INT((T/TI) *321)+350*O:PRINT"{HOME}{PUR}{2 DOWN}SCO 
RE="SC; :PRINTGS srem 157 
POKEX-45 , 32 sPOKEX-22 ,32 : POKEX-21,32:POKEX-2 ,32:POKEX-1 ,3 
2 :POKEX+1 , 32 : POKEX+2 , 32 s:rem 250 
POKEX+ 22 ,32 :POKEX+23 ,32 :TU=TU+1 :I FTU>7 THEN5 800 srem 83 
POKE36879,184 srem 212 
X=X—-2 2-INT( RND(1)*5)+1:GOSUB2000 srem 8@ 
T=TI : RETURN s:rem 21 
POKE36879,8:PRINT"{CLR}{2 DOWN} {CYN}OLD HIGH SCORE "PH:P 
RINT" { DOWN}BY: "NAMES :rem 17 
PRINT"{2 DOWN} {YEL} YOUR SCORE: "SC srem 242 
I FSC> PHTHEN7@0@ :rem 184 
PRINT"{2 DOWN}{GRN}PRESS X TO PLAY AGAIN" :rem 248 
GETAS : IFAS=""THEN5005 srem 183 
IFAS="X"THENSC=6 :GOTO1] srem 110 
GOTO59885 srem 207 
PRINT" {CLR} {BLU}": POKE36879,127 :rem 163 
PRINT"{3 DOWN}**ENTER SKILL LEVEL** 21 P3" srem 67 
PRINT"{2 DOWN}{2 SPACES}{RVS}1{OFF}{2 SPACES}EASY":PRINT 
"{2 DOWN}{5 SPACES }OR" srem 147 
PRINT"{2 DOWN}{2 SPACES}{RVS}2{OFF}{2 SPACES} DIFFICULT" 
srem 47 
GETNS : 1 FNS=""THEN690192 srem 2903 
O=VAL(NS ) :IFO<1ORO> 2THEN5999 srem 238 
PRINT" { CLR} ":POKE36865 , 255 :GOSUB2000 : FORI=140TO25STEP-1: 
POKE36865,I1 srem 176 
FORZS=0TO11 :NEXT:NEXT: RETURN srem 220 
PH=SC : POKE36877,@ srem 6 
PRINT" {DOWN} {RED}A "; :GOSUB720@:PRINT"NEW "; :GOSUB720@ 
srem 1290 
PRINT"HIGH "3; :GOSUB720@ :PRINT"SCORE!!1":GOSUB7200:rem 196 
INPUT" {DOWN} {BLU}WHAT IS YOUR NAME";NAMES :rem 142 
POKE36878 ,@ :GOTO50@4 srem 162 
POKE36878,15:POKE36876, 200 :FORE=1T05@ :NEXT: POKE36876,0:R 
ETURN srem 17 
POKE36877 ,@ : POKE36878,15:PRINT" {HOME }{3 DOWN}{RED} 
{2 SPACES}OUT OF FUEL!I":RESTORE srem 18 
POKE36875 , 200 :FORG=1T03008 :sNEXT: POKE36875 ,195 :FORG=1T038@ 
s NEXT : POKE36875,19@ :rem 74 
FORG=1T0300 :NEXT: POKE36875,185 :FORG=1T0O308 :NEXT: POKE3687 
5,0 srem 172 
FORSA=25TO15@ : POKE36865,SA:NEXT srem 209 
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8094 POKE36879, 42 : POKE36877,135 :FORWE=lL5TOOSTEP-1 : POKE36878,W 


E srem 233 
8985 FORET=1T0O108 :NEXT:NEXT :rem 225 
8986 POKE36865,25 :GOTO5004 srem 216 
9080 PRINT" {HOME}{21 DOWN}{BLK}{RVS}"AL;"{OFF} {HOME} ":GOTO28@ 
4 srem 158 
18000 PRINT" {HOME}{2 DOWN}{BLK}YOU'RE HEADED FOR A{3 SPACES]}M 
OUNTAIN! 1": FORWQ=1T0400 sNEXT srem 153 
19881 GOSUB19890 :IFAL>=19@THENPRINT"{2 UP}"G$:GOTO1@1@ :rem 87 
18882 GOTO8GO4 srem 248 
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Laser War 


“Laser War’ is a simple two-player game for the unexpanded VIC. Each 
player attempts to shoot at the other player’s ship. The ships shoot hori- 
zontally at each other. To move a ship one space vertically, press the appro- 
priate up or down key once (each player’s keys are listed on the instruction 
screen). To move more than one space vertically, press the appropriate key 
repeatedly. If there is a laser beam close to a ship, but not able to hit the 
ship directly, the ship will become invisible until the laser is gone. The first 
player to reach a score of five is the winner. 


Laser War 
For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 
18 POKE36879,27 srem 54 
15 PRINT" {CLR}":PRINTSPC(29) :PRINT"{RED}L{CYN}JA{PUR}S{GRNJE 
{BLU}R {YEL}wW{RED}A{CYN}R" srem 140 
30 PRINTSPC(112):PRINT" (PRESS SPACE BAR)" :rem 229 
48 GETMS : 1 FMS=""THEN4@ srem 3 
5@ PRINT" {CLR}":PRINTSPC(27) :PRINT" INSTRUCTIONS" srem 246 
55 PRINT"{2 DOWN}{BLU}THIS IS DESIGNED FOR{7 SPACES}TWO PLAYE 
RS" s:rem 148 
68 PRINT"{DOWN}{RED} PLAYER 1{5 SPACES}{GRN}PLAYER 2" :rem 127 
65 PRINT"{RED} {DOWN}A=UP{9 SPACES} {GRN}K=UP" :rem 215 
76 PRINT" {RED}Z=DOWN{7 SPACES} {GRN}M=DOWN" :rem 3 
75 PRINT" {RED}X=FIRE{7 SPACES} {GRN}N=FIRE" srem 227 
82 PRINT"{2 DOWN} {BLU}THE {PUR}X{BLU}'S IN THE MIDDLE OF THE 
{SPACE}SCREEN ARE{5 SPACES}BLOCKADES. SHOOTING" :rem 62 
85 PRINT"THEM WILL NOT HELP THESCORE OF THE GAME." :rem 217 
98 PRINT"{2 DOWN}{BLK}{2 SPACES}(PRESS SPACE BAR)" srem ll 
1808 GETMS :IFMS=""THEN19@ srem 93 
295 CLR srem 129 
299 A=7834 :B=8631 srem 125 
308 PRINT" {CLR}": POKE36879,8 s:rem 213 
318 POKE36878,@:POKE36875,@ srem l 
320 POKEA, 62 :POKEB, 6 srem 214 
408 FORT=38884T038906 : POKET ,6:NEXT srem 96 
418 POKE817@,12:POKE8171,1:POKE8172,19:POKE8173,5:POKE8174,18 
srem 250 
42@ POKE8176, 23:POKE8177,1:POKE8178,18 :rem 159 
438 POKE8168,27:POKE8180,29 srem 3 
53@ PRINT" {HOME} {BLU}SCORE=";SC; :PRINT"{3 SPACES } SCORE="; SK 
srem 253 
531 T=7998 :U=7866 : V=8020 : W=7844 srem 238 
533 POKEV, 86 :POKE3874@ , 4: POKEW, 86 : POKE38564,4 srem 182 
534 POKET, 86: POKE38718,4:POKEU, 86: POKE38586,4 srem 188 
545 GETAS srem 227 
546 IFAS<>"A"THEN6 32 srem 90 
547 A=A-22 srem 242 


I FA=76 886 THENA=7 782 
POKEA+22,32:POKEA, 62 :GOTO063@ 
IFAS <>"Z"“THEN65@ 

A=A+22 

IFA=8 164 THENA=8142 
POKE36878,15 :POKE36876, 209 
POKE36878 ,@: POKE36876,@ 
POKEA-22 ,32:POKEA, 62 :GOTO53@ 
IFAS <>"X"THEN53@ 
POKE36878 , 19 :POKE36875 , 209 
GOTO70@ 

IFAS <>"K"THEN55@ 

B=B-22 

IFB=7791THENB=7723 

POKEB+ 22, 32 : POKEB, 60 :GOTO53@ 
IFAS <>"M"THEN67@ 

B=B+22 

IFB=8185 THENB=8163 
POKE36878,15:POKE36874, 289 
POKE36878 ,@ : POKE36874,@ 
POKEB-22 , 32: POKEB, 68 :GOTO053@ 
IFAS <>"N"THEN57@ 
POKE36878 , 10: POKE36875 , 299 
GOTO89G 

C=A 

POKEC+1 ,67 

Z=6 

C=C+]1 

Z=Z+1 

IFC=BTHEN766 

I FC=WTHEN309 

IFC=UTHEN39@ 

IFC=VTHEN390@0 

IFC=TTHEN39@ 
POKEC=-2, 32: POKEC, 67 
IFZ=21THEN757 

GOTO7 20 
POKE36878 ,9 : POKE36875 ,@:GOTO38@ 
SK=SK+1 : POKEA, 104 : POKED+2 , 32 : POKED+1 , 32 
POKE36879 ,13 :GOTO77@ 

SC=SC+1 : POKEB, 194: POKEC-2, 32: POKEC-1 , 32 


2768 POKE36879,18:GOTO77@ 


776 


POKE36878 ,@: POKE36875 ,@ 
POKE36877 , 229 
FORL=15TO@STEP-1 
POKE36878,L 

FORM=1T075 

NEXTM 

NEXTL 

POKE36877 ,@ 

POKE36878 ,@ 
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IFSC=5 THENPRINT"{CLR}{3 DOWN} {RED}":PRINTSPC(4) :PRINT"PLA 


YER 1 WINS":PRINT" { BLU} ":GOTO98O srem 203 
IFSK=5 THENPRINT"{CLR}{3 DOWN} {RED}":PRINTSPC(4) :PRINT" 
{GRN} PLAYER 2 WINS":PRINT"{BLU}":GOTO9@@ srem 244 
GOTO299 srem 133 
D=B srem 91 
POKED-1 ,67 srem 3 
Y=6 srem 1008 
D=D-1 srem 189 
Y=Y+1 srem 234 
IF D=ATHEN762 srem 186 
IFD=WTHEN3989 srem 201 
IFD=UTHEN3@@ srem 200 
IFD=V THEN30@ srem 202 
IFD=TTHEN39090 srem 201 
POKED+2 , 32:POKED,67 srem 68 
IFY=21THEN857 srem 253 
GOTO8 2d srem 118 
POKE36878 ,@: POKE36875 , 8 :GOTO38B srem 23 
PRINT"{4 DOWN} DO YOU WANT TO PLAY{3 SPACES }AGAIN? 

{2 SPACES}(Y OR N)" srem 137 
INPUTPS srem 158 
IFPS="Y"THENRUN srem 156 
POKE36879, 27 srem 114 
PRINT" {CLR}" srem 4 
END srem 115 


Andy 
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Challenger One 


This exciting action game for the unexpanded VIC lets you shoot enemies 
and increase the number of galaxies conquered. If you miss more than 15 
percent of the enemies in your galaxy, you lose a life. 

In this game you are given two lives to shoot as many enemy ships as 
possible. You control the sights with your joystick. The sights don’t actually 
move, but rather the background moves. You have three seconds to kill the 
enemy; otherwise, a new one will appear. 

Press the fire button to activate your lasers. Ten aliens will attack per 
galaxy (level). You can tell how many more you have to shoot by multiply- 
ing the level times ten, then subtracting the number of waves. A word of 
warning—this is a very difficult game to win. Learning to control the move- 
ment is difficult. 


Challenger One 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,”” Appendix C. 


18 DEFFNA(B)=INT(RND(B)*415)+7725 :POKE36879,1@ srem 83 
20 FORM=@TO65 :READN : POKE7168+M,N:NEXT srem 95 
38 DATA169,128,141,19,145,169,9,133,1,133,2,169,127,141,34,14 
5,162,119,236,32,145 :rem 194 
48 DATA2@8,4,169,1,133,1,169,255,141,34,145,162,118,236,17,14 
5,208 ,4,169,22,133,1 srem 190 
5@ DATA162,119,236,17,145,208,4,169,1,133,2,162,122,236,17,14 
5,208,4,169,22,133,2,96 srem 76 
68 POKE36878,9:POKE36876,@:PRINT" {CLR} {YEL} {7 DOWN}{4 SPACES} 
CHALLENGER ONE" srem 62 
76 PRINT"{2 DOWN}{4 SPACES }ANDREW{2 SPACES }WOLBER" :rem 2390 
80 PRINT"{2 DOWN}{7 SPACES}LEVEL":INPUT"{10 LEFT}";B :rem 128 
99 IFB>19ORB<1THENB=5 srem 12 
198 LE=B s:rem 161 
1196 SC=9@:PK=9:LI=2 srem 21 
120 SH=0:PK=0 s:rem 221 
130 EP=(30-—(LE*4) ) sEN=LE* 10 :NS=@6:I FEP=< @THENEP=1 srem 46 
149 POKE36879,10:PRINT"{CLR}" srem @ 
150 FORA=7792T07723 :POKEA, 102 : POKEA+3@720,7:NEXTA srem 152 
160 FORB=8142T08163 : POKEB, 192 : POKEB+30720,7:NEXTB srem 155 
178 FORC=7724T08120STEP22 :POKEC,1@2 :POKEC+30720,7:NEXTC 
srem 62 
186 FORD=7745T08141STEP22 : POKED, 102 : POKED+39720,7:NEXTD 
srem 73 
190 WV=0 srem 180 
208 I=INT(RND(1)*416)+7725 srem 127 
210 IFPEEK(I1)<>32THEN200 srem 129 
220 POKEI ,42 :POKEI+3072@,3 srem 214 
230 POKE36878,6 : POKE36874, INT( RND(1)*75)+15@ :rem 288 
240 TIS="GGGGGG" srem 248 
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C1=INT( RND(1)*6)+1 srem 166 
WV=WV+1 s:rem 139 
GOSU B988 : GOSUB8@@ :C2=INT(RND(1)*6)+1 srem 78 
PRINT" {HOME } {DOWN} {RIGHT} {RED} {RVS}GALAXY" ;LE: PRINT" 

{ HOME} { DOWN} {14 RIGHT} {RED} {RVS }WAVE";WV srem 122 


PRINT" {HOME }{21 DOWN} {RIGHT} {RED} {RVS}SCORE";SC  :rem 124 
PRINT" { HOME} {RED} {21 DOWN}{13 RIGHT}{RVS}LIVES";LI 

srem 214 
PRINT" {YEL} {HOME}{18 DOWN}£+3{7 SPACES}0{4 SPACES}P":PRIN 
T"{YEL} {HOME}{12 DOWN}&+}{7 SPACES}L{4 SPACES}@" :rem 185 


SYS7168 s:rem 196 
QP=INT(RND(1)*4)+41 :rem 208 
IFQP=1 THENDE=1 : GOTO38@ srem 105 
IFQP=2THENDE=22 :GOTO38@ :rem 158 
IFQP=3 THENDE=-1 :GOTO380 s:rem 154 
IFQP=4THENDE=-22 :GOTO389 srem 207 
I FPEEK(1)=1THENED=1 :GOT042@ srem 114 
IFPEEK(1)=22THENED=-—22 :GOTO42@ srem 2 
I FPEEK( 2)=1THENED=-1 :GOT042@ srem 149 
IFPEEK ( 2)=22THENED=22 :rem 198 
ED=ED+DE srem 153 
I=I+ED: I FPEEK(I)=1@2O0RI=>81410ORI=<7724THENI=I-ED :GOT0472 
srem 159 
POKEI-ED, 32 : POKEI-ED+3907 29 ,@ srem 67 
POKEI+390729 ,C1l :POKEI ,42 :rem 29 
IFI=> 79989 ANDI=< 7956ANDPEEK( 37137) <95THEN494 srem 251 
GOTO54@ srem 110 
IFI=> 7909ANDI=< 7912 THEN53@6 srem 248 
IFI=>7931LANDI=< 7934THEN53@ s:rem 239 
IFI=>7953ANDI=< 7956THEN53@ :rem 248 
GOTO5494 srem 105 
GOSUB719 : GOSUB629 : SC=SC+EP : SH=SH+1 : POKEI+390720,3:FORD=1TO 
150 :NEXT: POKEI , 32 srem 110 
POKEI+3907298 ,@ srem 152 
IFWV=ENTHEN56@ srem 11ll 
GOTO68B srem 105 
PK=INT( (SH* 108) /WV) : I FPK=>85 THENLE=LE+1 :GOSUB69@ :GOTO12@ 
s:rem 199 
LI=LI-1 : LE=LE: WV=9 srem 78 
IFLI=<@THENGOSU B668 :GOTO6G srem 142 
IFLI=> 1 THENGOSUB6 94 : FORDI=1TO10@6 :NEXT:GOTO12@ srem 139 
IFTIS=>"960003"THENPOKEI ,32 :POKEI+3072@ ,@ :GOTO2@0@ :rem 58 
GOTO03208 s:rem 1901 
POKE36878 ,10 srem 100 
FORFD=254TO1 28STEP=—4 : POKE36876,FD:NEXT srem 99 
POKE36878 ,@ :POKE36876 ,@ s:rem 8 
RETURN srem 123 
PRINT" {HOME}{8 DOWN}{6 RIGHT}{YEL}GAME OVER" :rem 170 
FORTG=1 T0580 : POKE36878 , 10: POKE36876 , 200 : NEXTTG :GOTO68 
:rem 238 
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PRINT" {HOME}{9 DOWN}{7 RIGHT} { YEL} LEVEL" ;LE:FORG=1TO1900@: 


NEXT srem 124 
PRINT" {CLR} ":RETURN :rem 21 
FORZ=8121T0O7953STEP-21 srem 41 

POKEZ+21 , 32: POKEZ+307 20,3 : POKEZ+38741 ,0: POKEZ, 7/8: NEXTZ 
s:rem 4 

POKEZ+21 , 32 : POKEZ+307 20 ,@ : POKE8142, 102 : POKE8142+390720,7 
srem 65 
FORJ=8140T0O7 956STEP-23 srem 34 

POKEJ+23,32:POKEJ+30720 , 3 s POKEJ+38743,0:POKEJ,77:NEXTJ 
s:rem 186 
POKEJ+ 23,32: POKEJ +307 28 ,@ srem 199 
POKE8163 ,102 srem 94 
POKE8163+390726,7 srem 42 
RETURN srem 128 
S1=FNA(1) :GH=S1 :GOSUB87@4 srem 147 
S2=FNA(1) :GH=S2 :GOSUB8790 srem 150 
S3=FNA(1) :GH=S3 :GOSUB8798 srem 153 
S4=FNA(1) :GH=S4 :GOSUB8742 srem 156 
S5=FNA(1) :GH=S5 :GOSUB8792 srem 159 
S6=FNA (1) :GH=S6 :GOSU B8792 s:rem 162 
S7=FNA(1) :GH=S7 :rem 76 
IFPEEK ( GH) =102 THENRETURN :rem 18 
POKEGH, 46 : POKEGH+387 20 , C2 srem 189 
RETURN s:rem 129 
SA=307 26 srem 192 
HG=S1 :GOSUB9 8G srem 69 
HG=S2 :GOSU B98 srem 71 
HG=S3 :GOSU B9 8G srem 73 
HG=S4 :GOSUB98@ srem 75 
HG=S5 :GOSUB98@ srem 77 
HG=S6 :GOSUB98@ srem 79 
HG=S7 srem 246 
IFPEEK( HG )=1902THENRETURN srem 20 
POKEHG , 32 : POKEHG+SA, 9: RETURN :rem 390 
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space Mission 


Earth has been engaged in a lengthy war with the aliens. You have been 
charged with patrolling a quadrant of space that contains 150 sectors. As you 
move from one sector to another, you may find either an empty sector, one 
which contains either a photon torpedo or a fuel module, one which contains 
one of the above objects and an alien warship, or one which contains only a 
warship. 

When you first enter a new sector, you will have three options. The first 
is to move to another sector. The second is to take aboard the photon tor- 
pedo or fuel module, if any. The third is to engage the alien warship in battle. 
If you have encountered the alien for the third time since your last battle, 
you will have no choice but to fight. What object or objects, if any, are in a 
given sector is determined at runtime. 


Entering the Program 

Although “Space Mission” will run on an unexpanded VIC, it does require at 
least 8K expansion memory to enter. First, type in Program 1 with the 
expansion memory in place, and save it using the filename SPACE LOADER. 
Program 1 is a BASIC loader program that will write the machine language 
program to disk using the filename SPACE MISSION. Tape users should 
change the ,8,0 in line 50 to ,1,0. 

Once you have saved Program 1, enter the following line in direct mode: 


POKE 44,30:POKE 7680,0:NEW 


Now load Program 1 and run it. The program will take about a minute 
to POKE the machine language program into memory and save it to disk or 
tape. If you have made an error, the program will tell you. Correct the data 
and resave the program and run it again. If the program runs successfully, 
you will have the machine language on tape or disk under the filename 
SPACE MISSION. 

From now on, to play Space Mission, simply load it into an unexpanded 
VIC using LOAD’SPACE MISSION”’,8,1 for disk, or LOAD’SPACE MIS- 
SION”,1,1 for tape, and type SYS4558. 


Program Operation 
Upon initialization, you will be placed in sector 1 with a score of 5000. Your 
score is displayed on the first line at the extreme left. Your current sector 
number is the next number in the line, and the last number is the current 
number of alien warships. The number of alien warships is chosen ran- 
domly, but will be in the neighborhood of 75. The rest of the screen will be 
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filled with stars and any object(s) that may be in the sector. The star pattern 
will make an appropriate shift as you move about the quadrant. 

Here is a complete list of the program commands and an explanation of 
how to use each one: 

Movement is accomplished with keys 0-5. Keys 1-4 will move you for- 
ward from zero to four sectors. Just which key will do what depends on the 
sector you are in at the time. This is chosen at random on initialization, but 
remains constant for each sector for the run of the current game. Key 5 will 
move you backward from zero to four sectors. Again, just which it will do is 
chosen at random upon initialization for each sector and remains constant for 
each sector for the run of the current game. Backward movement from the 
first four sectors is never allowed. Pressing the 0 key will move you to a new 
sector chosen at random at that time. 

To those of you who are new to adventure games, this is the time to 
mention the necessity of making a travel map to keep track of where your 
key choices will take you. 

One last thing to mention on this subject is that forward movement be- 
yond sector 150 will wrap around. For example, three forward from 149 will 
land you in sector 2. 

Taking. Pressing the T key will take the photon torpedo or fuel module, 
if any, in the sector aboard your vessel and increase your score. An attempt 
to take a nonexistent object will result in an error message at the bottom of 
the screen, and the program will wait for valid input. 

Fighting. The F key will engage you in battle with the alien warship. 
There are only two possible outcomes: Either you will destroy it or you will 
fail to do so. In this game you never get killed—unlike in most adventure 
games. Attempting to fight a nonexistent alien will result in an error mes- 
sage, and the program will wait for valid input. 

Taking an object will remove it permanently from that sector for the rest 
of the game. The same goes for destroying an alien. 

These are the only commands necessary to play the game, but here are 
two more that you might find convenient. 

Quitting. If you are disgusted with your performance, you can 
reinitialize the program and start over by pressing the Q key. When you 
press Q, a prompt asks if you really want to do this just in case you pressed 
the key by mistake or want to change your mind. 

Exiting. If you want to stop playing before the game is over and don't 
wish to resume it at a later time, you can exit the program and return to 
BASIC by pressing the X key. Once again, a prompt will ask you if you 
really mean it. 

Before going on, let me remind you that if you encounter an alien war- 
ship for the third time since your last engagement, you must fight and there- 
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fore only the F key will work. A message at the bottom of the screen informs 
you of this. 


Scoring 
Space Mission uses the following scoring: 
Moving to a new sector —1 
Fighting and winning + 100 
Fighting and losing = 
Taking a photon torpedo “FLO 
Taking a fuel module +50 
Strategy 


The object of the game is to destroy all the alien warships while at the same 
time getting the highest score you can. When you fight or take an object, you 
are automatically moved to the next sector without the one-point penalty. 
After fighting, you can determine if you won or lost by noting the change in 
your score and/or the number of aliens. When all the aliens have been de- 
stroyed, the prompt line will ask you if you want a new game. An N re- 
sponse will exit you to BASIC. 

In determining when to fight, you might want to consider that the out- 
come is determined by chance, but the odds will favor you when your score 
is above 5000 and favor the alien when below. 


Space Mission 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


18 PRINT"{CLR}PLEASE WAIT...":1=4558 srem 212 
28 READ A:IF A=256 THEN 402 srem 54 
38 POKE I,A:I=I+1:C=C+A:GOTO 20 srem 235 
48 IFC<>181789THENPRINT"TYPING ERROR IN DATA":STOP srem 127 
98 SYS578609"@6:SPACE MISSION",8,0:REM CHANGE TO ,1,@ FOR TAPE 
:rem 158 
60 POKE193,206:POKE194,17:POKE174,58: POKE175, 25:SYS63109 
srem 4 
198 DATA 160,154,56,165,1,181,4,191,5,133,@ :rem 32 
118 DATA 162,4,181,8,149,1,202,16,249,2081,2 srem 39 
120 DATA 144, 234,281,5,176, 230,153,189, 25,136,288 srem 104 
130 DATA 224,234,234,234,234,234,234,234,234,234,234 :rem 248 
140 DATA 234, 234,234,234, 234,234,169,8,141,15,144 srem 106 
158 DATA 169,147,32,218,255,169,136,141,35,25,169 :rem 119 
168 DATA 19,141,36,25,169,1,141,37,25,169,@ srem 65 
178 DATA 141,38,25,141,39,25,160,158,56,165,1 srem 160 
188 DATA 181,4,191,5,133,8,162,4,181,8,149 srem 244 
198 DATA 1,262,16,249,281,167,176,45,291,148,144 srem 48 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


4,162,1,176,39,201,115,144,7,162,2 
238,39,25,176,28,201,25,144,7,162,3 
238,39,25,176,17,201,12,144,7,162,4 
238,39,25,176,6,162,5,144,2,162,9 
138,153,39,25,136,298,188,169,147,32,219 
255,162,15,169,31,133,2,189,40, 24,24 
109,37,25,201,228, 208,2,169,227,133,1 
169,46,145,1,202,208,234,162,15,198,2 
189,40, 24, 24,189, 37,25,133,1,169,46 
145,1,202,208,240,169,25,72,169,28,72 
169,8,72,173,37,25,72,32,232,22,173 
28,25,133,9,169,19,133,1,133,3,32 

146, 23,169,25,72,169,28,72,169,0,/2 
173,39,25,72,32,232,22,173,28,25,133 
G,169,16,133,1,133,3,32,146, 23,169 
25,.72,169; 28, 72,173436)25,72,173,35 
25,72,32,232,22,173,28,25,133,9,169 
1,133,12,133,3,732,146,23,172;,37,25 
185,39,25,201,8,248,49,201,1,208,6 
32,191,23,76,58,19,2801,2,2808,9, 32 
191,23,32,225,23,76,58,19, 201,3, 208 
6,32,225,23,76,58,19,201,4,208,9 
32,225,23,32,6,24,76,58,19,32,6 
24,173,39,25,201,0,208,3,76,61,21 
173,38,25,201,3,208,23,162,11,169,162 
133,0,169,24,i133,1,32,174,23,32,228 
255,201,78,208,249,76,9,22,32,228,255 
162,83,208,3,76,23,20,162,76,208,3 
76,129,280, 2801,81,208,3,76, 239,208,201 
88,288,3,76,23,21,201,84,208,3,/6 
89,21,2801,78,208,3,76,9,22,201,48 
208,33,56,165,1,191,4,191,5,133,90 
162,4,181,9,149,1,202,16,249, 201,90 
144,234,201,151,176,230,205,37,25,208,74 
240,174,201,49,208,2,248,45, 201,58, 208 
2,248,39,2801,51,208,2,240,33,201,52 
288,2,248,27,281,53,240,2,208,144,174 
37,25,224,6,176,2,144,135,189,189,25 
133,0,138,56,229,8,76,252,19,56,233 
48,24,199,37,25,179,189,189,25,24,109 
37,25,2801,151,144,2,233,158,141,37,25 
173435;,25 750,233 ,141414.35;255173;7-36 
25,233,0,141,36,25,76,111,18, 234,234 
234,234,162,12,169,173,133,0,169,24,133 
1, 32,174, 23,32,228,255, 201,89, 208; 2 
248,17,2801,78,288,243,162,11,169,32,157 
228,31,202,16,250,76,98,19,169,147, 32 
218,255,169,27,141,15,144,174,37,25,189 
39,25,201,2,208,2,240,180,201,3, 208 
2,240,4,201,4,208,3,206,38,25,169 
1,162,1,160,255,32,186,255,169,0, 32 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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189,255,169,35,133,9,169,25,133,1,162 :rem 223 
88,160,26,169,9,32,216,255,8,162,12 :rem 112 
169,185,133,8,169,24,133,1,32,174,23 :rem 165 
32,228,255,201,89,288,2,248,17,281,78 :rem 218 
208,243,162,11,169,32,157,228,31,292,16 srem 57 
250,76,98,19,169,147,32,218,255,169,27 :rem 39 
141,15,144,169,1,162,1,169,255,32,186 :rem 215 
255,169,8,32,189,255,169,98,162, 255,168 :rem 28 
255,32,213,255,169,8,141,15,144,76,111 :rem 18 
18, 234, 234, 234, 234, 234, 234,234, 234,234,234 :rem 205 
234,234,234,234,234,234,234,234,234,234,234 :rem 254 
234,234,234, 234,234, 234,234, 234, 234,162,12 :rem 201 
169,197,133,8,169,24,133,1,32,174,23 :rem 169 
32,228,255,201,78,208,13,162,12,169, 32 :rem 12 
157,228,31,2902,16,250,76,98,19,201,89 :rem 234 
208, 232,76, 206,17,162,12,169,209,133,0 :rem 12 
169, 24,133,1,32,174,23,32,228,255,201 :rem 213 
78, 208,13,162,12,169,32,157,228, 31,202 :rem 17 
16,258,76,98,19,281,89,208,232,0,162 :rem 183 
16,169,221,133,9,169,24,133,1,32,174 :rem 157 
23,32,228,255,2801,78,2808,1,0,201,89 :rem lll 
208,244,76,206,17,172,37,25,185, 39,25 :rem 234 
201,1,288,23,169,9,32,223,21,238,37 :rem 193 
25,173,37,25,2801,151,208,5,169,1,141 :rem 162 
37,25,76,111,18,201,2,208,26,169,3 :rem 68 
32,223; 214.2387 317294173437 7.2594201,151 :rem 212 
208,5,169,1,141,37,25,234,234,234,/06 :rem 177 
111,18,201,4,208,24,169,3,32,244,21 :rem 107 
238,37,25,173,37,25,201,151,2808,5,169 :rem 231 
1,141,37,25,234,76,111,18,201,5,2808 rem 143 
23,169,8,32,244,21,238,37,25,173,37 :rem 158 
25,2801,151,2808,5,169,1,141,37,25,76 :rem 154 
111,18,162,28,169,237,133,9,169,24,133 :rem 45 
1,32,174,23,76,98,19,153, 39,25,173 :rem 125 
35,25,24,195,25,141,35,25,173,36,25 :rem 154 
195,0,141,36,25,96,153,39,25,173,35 :rem 163 
25,24,195,58,141,35,25,173,36,25,1985 :rem 200 
6,141,36,25,96,172,37,25,185, 39,25 :rem 124 


261,0,249,18,201,1,2490,6,201,5,240 :rem 68 


2,208,16,162,20,169,1,133,8,169,25 rem 97 
133,1,32,174,23,76,98,19,56,165,1 :rem 67 
161,4,181,5,133,0,162,4,181,90,149 :rem 31 
1,202,16,249,201,09,176,2,144,232,201 :rem 184 
8,144,2,176,226,133,8,169,509, 285, 36 :rem 159 
25,249,4,16,17,48,23,169,0,295,35 :rem 57 
25,48,16,165,0,201,4,144,16,1/76,54 :rem 119 
165,0,201,5,144,8,176,46,165,9,201 rem 193 
5,144,40,173,35,25,56,233,25,141, 35 rem 160@ 
25,173,36,25,233,0,141,36,25,169,@0 :rem 109 
TAL 7-38 7.255238,374 2547173437525, 201,.151 :rem 1 
208,5,169,1,141,37,25,76,111,18,173 rem lol 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


35,25,24,105,100,141,35,25,173, 36,25 
105,8,141,36,25,185,39,25,201,2,288 
8,169,1,153, 39,25,76, 206, 22,201,3 
208,8,169,8,153,39,25,76,206,22,169 
5,153,39,25, 206, 39,25,169,0,141, 38 
25,238,37,25,173,37,25,201,151,208,5 
169,1,141,37,25,76,111,18,194,141,21 
25,104,141,22,25,1894,141,23,25,104,141 
24,25,141,25,25,16,17,169,8,56, 237 
23,25,141,23,25,169,9,237,24,25,141 
24,25,1904,133,8,194,133,1,169,90,160 
@,145,8,169,8,141,26,25,141,27,25 
162,16,24,46,23,25,46,24,25,46, 26 
25,46,27,25,56,173,26,25,233,19,168 
173,27,25,233,0,144,6,148,26,25,141 
27,25,202,298,221,46,23,25,46,24,25 
173,26,25,24,195,48, 32,114, 23,173, 23 
25,13,24,25,208,187,173,25,25,16,5 
169, 45,32,114, 23,173,22,25,72,173,21 
25,72,96,72,169,9,177,8,168,240,9 
177,0,208,145,0,136,136,208,24/7,104,160 
1,145,8,160,0,177,0,24,195,1,145 
%,96,169, 30,133,2,169,1580,133,4,162 
1,1690,0,189,28,25,145,1,169,5,145 
3,208,232,198,9,208,241,96,160,0,177 
8,153,228,31,169,5,153,228,151, 200,202 
208, 242,96,162,24,189,55, 24,133,1,202 
189,55,24,133,0,169,91,160,0,145,0 
165,1,24,1805,120,133,1,169,5,145,0 
202,208,225,96,162,42,189,119,24,133,1 
262,189,119, 24,133,0,169,91,160,0,145 
0,165,1,24,195,120,133,1,169,5,145 
0,202,208,225, 238, 38,25,96,162,40,189 
79,24,133,1,202,189,79,24,133,0,169 
91,160,0,145,0,165,1,24,195,1208,133 
1,169,5,145,0,202,208,225,96,1,12 
31,22,47,60,68,86,111,114,1398,154,158 
176,182,211,186,38,189,30,209,30,210, 30 
230,30,231,30,232,30,233,30,253,38,254 
30,18,31,21,31,171,38,192,308,193,38 
194,30,214,30,215, 30,216, 38, 236, 38,237 
39 ,238,30,2,31,3,31,4,31,24,31 
25,31,26,31,46, 31,47, 31,48, 31,69 
31,136,38,138,38,158,30,169,30,180, 30 
181,30,182,30,202,30,2803,390,204, 30,223 
38,224,30,225,380,226,30,227,30,245,30 
249, 30,11,31,15,31,33,31,37,31,169 
13,21,19,20,32,6,9,7,8,280,16@ 
19,1,22,5,63,32,40,25,47,14,41 
160,12,15,1,4,63,32,49,25,47,14 
41,168,17,21,9,28,63,32,48,25,47 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


14,41,160,5,24,9,20,63,32,49,25 
47,14,41,160,14,5,23,32,7,1,13 
5,63,32,40,25,47,14,41,169,14,15 
32,15,2,10,5,3,20,46,46, 46, 23 
1,9,20,9,14,7,160,14,15,32,1 
12,9,5,14,46,46,46, 23,1,9,2@ 
9,14,7,32,0,0,9,09,0,8,@ 
9,0,09,0,0,0,0,09,0,0, 
0,0,09,0,9,09,0,0,8,90, 
0,9,0,0,0,0,08,0,256 
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srem 205 
srem 154 
srem 4 
srem 1907 
s:rem 58 
srem 71 
srem 45 
srem 171 
srem 172 
srem 98 
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Dungeon Escape 


It’s a mild spring day. The world is bursting with life and new beginnings. 
You've set out into the world to seek your fame and fortune, questing for 
gold, eager for battle with the forces of evil. But these are the latter times of | 
the days of sorcery. The dragons are becoming extinct; the dungeons of leg- 
end have long been ransacked. Alchemy and adventure are being discarded 
for modern ways. It seems that adventurers like yourself have no place in 
this new world. The glorious legends are fading, crumbling like ancient 
parchment. 

Yet 20 days ago, while passing through the town of Irstwile, you heard 
the talk in taverns of a Secret Place, recently sought by another traveler, a 
traveler never to return. You eagerly pressed for details, hoping that this is 
the way to your quest. The townsfolk couldn’t tell you much or were unwill- 
ing to reveal what they really knew. By plying with drink and gold, you 
found some who told you of the ancient ruins of a once-great castle, occu- 
pied long ago by a savage ruler. They tell of the Dungeon, a vast under- 
ground labyrinth, constructed by the king to test the mettle of his Dark 
Knights. More, they would not say. The entire area within 20 miles of the 
Dungeon has been shunned for more than a century. Only the foolhardy 
dare to speak of it, let alone wish to find it. Unfortunately, nothing they 
could say would discourage you. 

After more than a fortnight of travel, you come upon the jangled mass 
of stones, blackened and glossy as if scorched by unimaginable heat. Indeed, 
much time has passed since the evil castle once reached into the sky, for the 
area has been reclaimed by bush and wildflowers. It looks disappointingly 
harmless. As you clamber over the rocks, though, you notice a pile of fresh- 
cut rock, chipped and piled at the side of a dark, downward passage. Your 
excitement mounts, as the sky begins to roil with the towering thunderheads 
of a brewing storm. You descend into the darkness, sword in hand, and fi- 
nally come upon a massive wooden door. You cannot find a way to open the 
door, and in your eagerness begin to flail at it with your sword. But this is 
no ordinary wood. Your sword breaks with the first blow, shattering into 
useless shards. Then the door opens, steaming with dank and horrible odors. 
Sword or no, you’ve come too far to turn back now. You enter the Dungeon, 
and the door slams behind you. Nothing you do will budge the giant door. 
You're trapped. 

You light a torch and see before you a cryptic message: 


In your world you find no rest; 

Your blood is hot for glorious quest. 
You’re finished now, you foolish mortal 
Without the keys to crack this portal. 
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Your mind is filled with fear as you realize what you've got yourself 
into. You then notice three small notches in the enormous door. If only you 
can find the keys to the door, you can escape to the safe world outside. This 
Dungeon is no place for gold and glory. It’s a wicked trap that can be your 
crypt. Your only hope is to venture forth, down into the heart of the earth. 
With no sword, no food, and fading hope, you walk along the passageways, 
seeking the keys you need to escape the deadly Dungeon. And you haven't 
seen the worst yet. Some doors are locked, requiring you to bash at them, 
draining your precious, waning strength. If you can enter a room, you find it 
contains a chest. You never know if you should open a chest, for some are 
empty, while others spew forth noxious gases that weaken you further. But 
some contain food and drink to replenish you. Some contain a precious key. 
It’s not going to be easy. Many rooms are guarded by fierce monsters, mu- 
tated creatures fashioned from dark, ancient magic. There is a sword some- 
where within the Dungeon, but without it you don’t dare fight these beasts. 
And fight you must, if you hope to find the keys. Good luck, adventurer. 
This quest of yours may be your doom. 


Playing Dungeon Escape 
It somehow seems less deadly from behind your TV screen. Move the ball 
representing your alter ego with a joystick plugged into the VIC controller 
port. The game requires no expansion memory; it runs on a 5K unexpanded 
VIC. After you run the game, the complete Dungeon appears. Move through 
the Dungeon and upward against a door to try to enter a room. Conserve 
your strength at all costs. Simply opening the door and entering a room costs 
you two strength points. You start out with a hundred points of strength. If 
the strength falls at or below zero, you surely know what happens to your 
desperate adventurer. 

You cannot leave the Dungeon through the top of the screen until 
you've acquired at least three keys. Some doors are locked, but if you try 
repeatedly, you can open them, at a cost of five strength points. Chests filled 
with poisonous gases sap ten points of your strength. If you can find a chest 
with food and drink, six points are added to your strength. Somewhere, 
you'll find a sword with which you can face the monsters guarding some of 
the rooms. Fighting not only drains your energy, but it can also kill you, so 
you're allowed to retreat when you get too tired. You can press the S key at 
any time to get a status report of your remaining strength, whether or not 
you have the sword, the number of keys found, time elapsed, monsters 
killed, and number of times you’ve retreated from a fight or locked door. 
Don’t use the status report after you've entered a room, or the chest will 
vanish. You can use the status indications to play competively with your 
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friends. Even if you don’t find the keys, you can use time elapsed, monsters 
killed, and number of retreats to compare your ability. 

Escaping from the Dungeon may seem impossible, but you do have just 
enough strength to find the keys. When you find all three keys, exit your 
persona through the top of the vertical passageway to complete the Dun- 
geon. Again, we wish you luck. You'll need it. 


Dungeon Escape 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


@ PRINT" {CLR}":DIMR( 24) :G=1:DEFFNB(B)=INT(RND(1)*10)+1 


srem 216 

1 POKE36879,8 :N=78@1 :S1=36874 :S2=S1+1 :S3=S1+2 :S4=S1+3 :V=S1+4: 

SP=1908 :TIS="GBBISH" srem 2 

2 POKE36881, 255 :CA=0 :W=160 :D=121:C=7724:PRINT" {CLR}":GOSUB4:G 

OSUB9 srem 31 

3 C=38444 :CA=9 :W=2 :D=6 :GOSUB4 :GOSUB9 :GOTO1G srem 139 
4 FORC=CTOC+9 : POKEC ,W: NEXT: C=C+2 s FORC=CTOC+9 : POKEC , W: NEXT 

srem J 


5 FORI=1T02 :FORC=CTOC+21STEP3 : POKEC ,W:NEXT:C=C-2:NEXTI:rem 53 
6 FORC=CTOC+21 :POKEC,W:NEXT:C=C-2@ : FORC=CTOC+19 : POKEC , D: C=C+2 


sNEXT srem 214 
7 POKEC-12,32:C=C-1 :POKEC,W: C=C+21 :POKEC,W: C=C+1 :CA=CA+1:IFCA 
=4 THENRETURN srem 15 
8 GOTO4 srem 165 
9 FORC=CTOC+22 :POKEC,W:NEXT: RETURN srem 26 
18 POKE7734,120:POKE7735,120:POKE38454,2:POKE38455,2 :zrem 193 
11 FORI=1TOG:POKER(I),32:NEXT:POKE36881, 24 srem 78 
12 GOSUB95 :GETAS :IFAS="S "THENGOSUB25 :GOTO2 srem 141 
13 POKE37154,127:A=( PEEK( 37137) AND28) OR( PEEK( 37152) AND128) :A= 
ABS ( (A-10@)/4)-7 srem 236 
14 ONAGOSUB16,17,15,,16,17,19,,,,18,17,16:POKE37154,255:GOTOI1 
2 srem 132 
15 F=N:N=N-1 :GOTO20 srem 125 
16 F=N:N=N+22 :GOTO29 srem 175 
17 F=N:N=N-—22 :GOTO20 srem 178 
18 F=N:N=N+1 :GOTO20 srem 126 
19 RETURN srem 74 
26 IFPEEK(N)=160THENN=F srem 137 
21 IFPEEK(N)=126 THENGOSUB43 s:rem 162 
22 IFPEEK(N)=12@THENGOSUB5@ srem 155 
23 IFPEEK(N)=121 THENGOSUB33 : IFF<>NTHENGOSUB39 srem 144 
24 GOSUB82:RETURN srem 106 
25 PRINT" {CLR} {5 SPACES}***STATUS***";SPC(49) "STRENGTH: "SP 
srem 26 
26 IFSW=8THENP RINT" { DOWN} SWORD: NO" srem 133 
27 IFSW=1THENPRINT"{DOWN}SWORD: YES" :rem 219 
28 PRINT" {DOWN}KEYS FOUND: "K;:SPC(30@)"TIME ELAPSED: "TI$;SPC(25 
)"MONSTERS KILLED: "MK srem 233 
29 PRINT" { DOWN} RETREATS: "RT: ILFL=1 THENRETURN srem 41 
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PRINT" {3 DOWN}HIT SPACE BAR TO GO ON" srem 99 
GETWS : IL FWS=""THEN31 srem 23 
RETURN :rem 69 
GOSUB89 : SP=SP—-2 :GOSUB41 : X=FNB(B) : IFX>3THENGOTO53 s:rem 35 


PRINT" {HOME }LOCKED, TRY AGAIN:{RVS}FIRE{OFF}RETREAT: {RVS}R 


{ OFF }" :rem 211 
GOSUB92 : IL FB=0 THEN3 3 srem 96 
RETURN s:rem 73 
PRINT" {HOME}{44 SPACES }":RETURN :rem 104 
FORT=1T0O29000 : NEXT: RETURN srem 12 
POKEN-45 ,126:RETURN srem 94 
R(G)=N :G=G+l1 :GOSUB37 : RETURN srem 1208 
IFSP=8ORSP<@THEN75 srem 79 
RETURN srem 70 
P=INT(RND(1)*4)4+1:TRS(1)="A KEY":TRS(2)="FOOD AND DRINK":T 
R$(3)="POISON GAS" srem 184 
TRS(4)="A SWORD":GOSUB95 : I FG>21ANDK< 3THENP=1 :rem 91 
I FP=1 ANDK< 3 THENGOSUB91 : GOSUB83 : K=K+1l srem 234 
IFP=2THEN :SP=SP+6 :GOSUB91 :GOSUB79 : I FSP> 19@THENSP=19@ 

srem 46 
IFP=3 THEN : SP=SP-1@ : GOSUB91 :GOSUB78 :GOSUB41 srem 162 
IFP=4THEN : SW=SW+1 :GOSUB85 : IFSW> 1 THENSW=1 :GOTO043 srem 60 
GOSUB38 :GOSUB37 : RETURN srem 152 
IFK< 3THENPRINT" {HOME}COWARD! YOU DON'T HAVE ALL OF THE KEY 
s" srem 1704 
IFK< 3THENN=F : GOSU B38 :GOSUB37 : RETURN :rem 18 
IF K=3THENL=1 :GOSUB25:PRINT" { DOWN}CONGRATULATIONS, YOU 
{3 SPACES }ESAPED!":GOTO76 srem 48 
T=FNB (B) : 1 FT> 5 THENGOSUB46 : RETURN srem 31 
GOSUB95:PRINT" {HOME}A MONSTER IS GUARDING THE CHEST":GOSUB 
38 :GOSUB37 :rem 1988 
PRINT" {HOME }FIGHT: {RVS}FIRE{OFF}{12 SPACES}RETRFAT:{RVS}R 
{OFF }" srem ll 
GOSU B92 : I FB=0 THEN58 :rem 106 
POKEN-22,121:RETURN :rem 84 
IFSW=1THENMS=@ :GOTO61 s:rem 42 
GOSUB37:PRINT"{HOME}YOU WOULD DIE WITHOUT THE SWORD":GOSUB 
38 :rem 153 
GOSUB37 : POKEN, 121 :N=F: RETURN srem 236 
M=FNB(B) :H=FNB(B):IFM>7THEN6G7 :rem 169 
GOSUB37 : PRINT" {HOME}YOUR MOVE" :GOSUB38 :GOSUB37 srem 63 
IFH< 4THENPRINT" {HOME }MISSED": GOSUB89 :GOSUB38 : GOSUB37 :GOTO6 
1 srem 214 
PRINT" {HOME}YOU HIT THE MONSTER":MS=MS+1 :GOSUB88 :GOSUB38:G 
OSUB37 :rem 191 
IFMS=3THENPRINT" {HOME}YOU KILLED THE MONSTER":MK=MK+1 :GOSU 
B38 :GOSUB4@ : RETURN srem 56 
GOTO61 :rem 12 
GOSUB37:PRINT" {HOME}MONSTER'S MOVE" :GOSUB38 :GOSUB37 

srem 151 
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I FH<5 THENP RINT" { HOME }MISSED" : GOSUB89 :GOSUB 38 :GOSUB37 :GOTO6 


1 srem 220 
PRINT" {HOME}THE MONSTER HAS HIT{3 SPACES}YOU":SP=SP-12:GOS 
UB88 :GOSUB38 :GOSUB37 srem 218 
GOSUB41 srem 76 
PRINT" {HOME}YOUR STRENGTH IS NOW: "SP :GOSUB38 :GOSUB37 

s:rem 192 
PRINT" {HOME } CONTINUE: { RVS}FIRE{OFF}{9 SPACES}RETREAT:{RVS} 
R{OFF}" srem 253 
GOSUB92 : IFB=@THEN61 : srem 99 
POKEN-22,121:RETURN :rem 83 


L=1 :GOSUB25:PRINT" {DOWN}YOU DIED":GOSUB88:GOTO77 :rem 129 
FORA=8T014 : POKE36879,A:GOSUB83 :NEXT: GOSUB79 :GOTO77:rem 162 
PRINT" {DOWN} PLAY AGAIN:{RVS}FIRE{OFF}":GOSUB92:RUN :rem 62 
FORE=1TOLSSTEP .@9 : POKES4, 251 :POKEV, E:NEXT: FORE=15TOOSTEP-. 
1:POKEV, E:NEXT :GOTO9@ srem 1907 


FORL=225TO2Z5@STEP .3:POKEV,15:POKES1,L:NEXT:GOTO9G :rem 91 
FORE=1TO3 : POKES4, 147: FORL=15TO@STEP—-2 : POKEV, L: FORM=1TO50 :N 
EXTM, L: POKEV,% :NEXT srem 251 
GOTO9G srem 11 
POKES2,135:POKEV,5:FORT=1T0O5 :NEXT:GOTO9@ srem 19 
POKES3 , 200: FORL=15 TO@STEP-2 : POKEV, L: FORM=1T025 :NEXTM, L: POK 
EV ,@:GOTO9G srem 174 
RETURN srem 76 
IFSW=1THENGOSUBQ1 :POKEV,15:FORM=1T0O3 :POKES3 , 290: FORT=1TO19 
8 :NEXT: POKES3,9 srem 184 
IFSW=1THENFORT=1T0398 :NEXTT,M: POKES3, 218: FORT=1TO0550:NEXT:G 
OTO9DG srem 100 
RETURN srem 79 
FORM=235TOLS@STEP-1 :POKEV,15:POKES1,M:NEXT:GOTO99 :rem 90 
POKES4, 240:POKEV,15:FORE=1L5TOOSTEP-—.1:POKEV,E:NEXT:GOTO90 
s:rem 99 

FORS=368 74T036878 : POKES ,9:NEXT : RETURN s:rem 74 
PRINT" {HOME}THE CHEST CONTAINS{4 SPACES }"TRS$(P) :RETURN 

srem 138 
B=PEEK( 37137) AND32 : IFB=@ THENGOSUB37 : RETURN srem 72 
AS=""s:GETAS :LFAS="R"THENRT=RT+1 :SP=SP-3 :N=F: GOSUB37 :GOSUB4 
1 : RETURN s:rem 19/7 
GOTO92 srem 17 
M=N+390720 : POKEM,6:POKEN, 81 : IFF<>NTHENPOKEF, 32 : RETURN 

srem 247 
RETU RN srem 79 
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Place Your Bet 


You'll feel like you’re at the races with ‘’Place Your Bet” running on your 
unexpanded VIC. Place Your Bet is a race simulation for one to four players. 

The game is self-explanatory and easy to play. Simply enter your bets 
when prompted. Keep in mind the odds and the amount of money you have 
remaining. There are ten races, and if you go bust, it can get pretty dull 
watching everyone else playing the odds. 


Place Your Bet 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


19 V9=36879 : V=36878 :V5=36875 : V6=36876 :V7=36877 :G=48 :1$=30720: 


V1=7694 srem 49 
28 GOSUB47@ srem 125 
38 BS$(1)="{BLK}1-SPEEDY":BS(2)="{BLK}2-SANDY":BS(3)="{BLK}3-S 
COOTER":BS(4)=" {BLK} 4-—SLEEPER" srem 241 
49 BS(5)="{BLK}5-SILLY":BS$(6)="{BLK}6-SORRY":B$(7)="{BLK} 7-SL 
IM" s:rem 92 
50 K%=7724:W$=8 :S%=0: TZ=0 srem 7/72 
706 GOSUB55@ :rem 129 
75 FORX=1TO7 :A%(X)=66*X-65 :NEXTX srem 208 
88 PRINT" {CLR}":POKEV9,8 srem 40 
85 FORX=1TO7 : POKE7679+X* 66, 48+X : POKE7679+1%+X* 66 ,X :NEXTX 
s:rem 187 
99 FORL=1TO21 : POKE7700+L* 22 , 89: POKE7790+13+L* 22,1 :NEXTL 
srem 224 
198 POKEV, 15 : FORM=254T0249+INT(RND(1)*198)STEP-1:POKEV6,M:NEXT 
M: POKEV6 ,@ srem 158 
11@ X=INT(1+7*RND(TI) ) srem 242 
120 IFX=W%ORX=S$THEN11@ srem 162 
138 A&(X)=AS(X)+1 srem 75 
149 POKEK%$+A%(X),81 srem 3 
158 POKEK$+A3%(X)+1,75 srem 99 
16@ POKEK%+A%(X)-1,74 srem 101 
178 POKEK$+A%(X)+1,73 srem 99 
18@ POKEK%+A%(X)-1,85 srem 105 
1980 POKEK%+1%3+A%(X),X srem 144 
260 POKEK%$+13+1+A%(X),X :rem 228 
2180 POKEK%+1I%—1+A%(X),X srem 231 
226 POKEK%$+1%$-2+A%(X),@ :rem 193 
230 IFA%(X)=X* 66-47 THENGOSUB78@2 srem 68 
240 GOTO1BD :rem 96 
250 POKEVY, 29 srem 236 
268 PRINT" {CLR} {DOWN} {RED} {RVS}{8 SPACES}RESULTS{7 SPACES} 
{BLK} {OFF}" srem 143 
270 PRINT"# CRAB"TAB(11)"5X PAYOFF" srem 69 
275 PRINT"K6 T3{5 SPACES}K9 TJ" srem 252 
280 PRINTBS (WS) > TAB(1@) ;O%(W%)*5 srem 249 
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PRINT" ":BS(S%);TAB(11);0%8(S%)*5/2 s:rem 211 
PRINT" {2 SPACES}";BS(T%);TAB(12);0%(T%)*5/4 srem 208 
FORJ=1TOP% srem 75 
LFC%(J)=W% THENS$ (J )=S%(J)+B8(J)*0% (WS) sGOTO369 srem 22 


LFC%(J)=S$THENS$ (J )=S%(J)+B%(J) *0%$(S%)/2:GOTO360 srem 112 


LFC3(J)=T% THENS$(J)=S%(J)+B%(J)*08(T%)/4:GOTO368 :rem 117 
S% (J)=S%(J)-BS(JZ) :rem 42 
NEX TJ srem 34 
PRINT" {DOWN} {BLU} {RVS}{8 SPACES}TOTALS{8 SPACES} {BLK} 
{OFF }"; :rem 225 
FORJ=1TOP$% srem 82 
PRINT" {DOWN}";P$(J);TAB(18);S8(J)7"X" srem 49 
IFC%(J)=W%ORC3(J)=S$ORC$ (J )=T%THENGOTOIGD :rem 163 
GOSUB419 s:rem 195 
NEXTJ s:rem 29 
GOTO425 srem 105 
POKEV,15 srem 181 
FORT=220TO127STEP-1 : POKE36874,T: POKEVS ,T:FORM=1T05 :NEXTM: 
NEXTT : POKE36874,@: POKEV5 ,@ :rem 74 
RETURN srem 119 
PRINT"{2 DOWN}{PUR}{RVS}PRESS ANY KEY{BLK}{OFF}";:rem 247 
GETAS : 1LFAS=""THEN4 26 srem 91 
IFR%<>18THENPOKEV9 , 27:GOTO59@ srem 211 
PRINT" {CLR}":POKEV9,15 srem 135 
PRINT" {HOME}{8 DOWN}{18 RIGHT} {RVS}{YEL}THE{2 DOWN} 
{3 LEFT }END{ BLK} {OFF}":FORM=1TO500 :NEXTM :rem 133 
T=506* RND(1) : POKET+7680 , 88 : POKET+3840@ , 8*RND(1) :GOTO455 
srem 159 
PRINT" {CLR} {RVS} {RED} UQIPLACE YOUR BETUQI"; srem 213 
PRINT" { RED} {RVS}{23 SPACES}{OFF}{BLK}" :rem 193 
PRINT" {DOWN}{BLK}THERE ARE 7 CRABS{3 SPACES}":PRINT"IN EA 
CH RACE AND 18":PRINT"RACES EACH GAME." srem 212 
PRINT"1-4 PLAYERS CAN PLAY." srem 86 
PRINT"EACH PLAYER STARTS":PRINT"WITH A STAKE OF 580X ":PR 
INT"AND CAN BET UP TO" :rem 250 
PRINT"WHAT REMAINS IN THIS":PRINT"STAKE." srem 42 
INPUT" { DOWN} {RIGHT }HOW MANY PLAYERS?{LEFT}";P% :rem 104 
IFP%3<1lORP%>4THEN529 srem 87 
FORJ=1 TOP3 : INPUT" PLAYER'S NAME";PS(J):S%(J)=508 :NEXTJ : RET 
URN ‘srem 12 
DEFFNA (B)=INT(2+8*RND(TI) ) :rem 219 
RZ=R3$+1 srem 34 
POKEVO , 254:PRINT" {CLR} {RVS}RACE #";R% z:rem 194 
PRINT" {DOWN}# CRABS"TAB(11)"ODDS": PRINT :rem 205 
FORB=1TO7 srem 7 
O0%(B)=FNA(B) s:rem 67 
PRINT"";BS(B);TAB(18):0%(B);"TO 1" srem 246 
NEXTB srem 26 
PRINT"K22 TR" s:rem 109 
FORJ=1TOP% srem 82 
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660 PRINTPS(J);"{2 SPACES}CRAB#"; srem 45 
678 INPUT C%(J):IFC%(J)<1lORC$(J)>7THEN672 srem 78 
680 PRINT;S%(J);:PRINT"LEFT BET"; srem @ 
698 INPUT B%(J) :IFB%(J)>S%(J)ORB3(J) <@THEN69G srem 42 
788 NEXTJ :rem 32 
718 POKEV,15: READE : 1 FE%=—1 THENPOKEV, 15 :GOTO7 3@ srem 144 
720 READD$ :POKEV5 , E3 :FORT=1TOD% :NEXTT: POKEV5 ,8:GOTO71@ 

srem 191 

738 POKEV7,135:FORL=l15TO@STEP-.2:POKEV, L:NEXTL:POKEV7,@ 
srem 21 
748 FORT=1TO590 : RESTORE: RETURN srem 196 
75@ DATA215,860,225,80,232,80,235,88,235,40, 235,48, 235,880,232, 
88, 232,48, 232,40 srem 239 
768 DATA232,80,225,80,232,80,225,80,215,320,215,88,225,80,232 
,88,235,88,235,48 srem 4@ 
778 DATA235,40,235,89,235,80,231,80,225,88,215,808,215,40,215, 
49,215,80,225,648,-1 srem 178 
780 IFW%=OTHENWS=X : POKEV1 ,X+G: POKEV1+1%,X: RETURN :rem 180 


792 IFS%=0 THENS%=X : POKEV1+2, X+G: POKEV1+1%+2,X:RETURN :rem 23 
795 IFTS=OTHENT$=X : POKEV1+4 ,X+G: POKEV1+1%+4,X:FORT=1TOL560@0:NE 


XTT:GOTO25@ :rem 43 
908 POKEV,15:FORL=1T0O15 :FORM=250TO240STEP-1 :POKEV6 ,M:NEXTM:FO 
RM=240T0O250 : POKEV6,M:NEXTM s:rem 1492 
9061 POKEV6 ,@:NEXTL: POKEV,%:GOTO400 srem 152 
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| Boogieball 


“Boogieball” is a quick wild-goose chase for the standard VIC which requires 
a quick eye and fast reflexes. A Boogieball is an irritating ball that tries to 
boogie its way out of the arena. The only way to stop the Boogieballs from 
boogeying and escaping is to use your controllable Boogiepopper to pop the 
Boogieball before it reaches the walls of the arena. But wait, just as you pop 
the Boogieball, another one appears on the screen! 


The Game 
In other words.... 

Imagine yourself in a square arena somewhere on the strange planet of 
Astroyd. In the center of the arena is a small box from which Boogieballs 
exit. The Boogieballs are trying to conquer the outer surface of the planet. 

Now the object of the game is to maneuver your Boogiepopper, using 
the assigned keys (I, J, K, and M), and to pop the randomly moving 
Boogieballs ascending from the box by simply running over them. If the 
Boogieballs dodge your moves and escape by passing through the arena 
walls, 10 points will be subtracted from your score and another Boogieball 
will appear on the screen. 

Sounds easy? Not really. The game gets difficult as it progresses. A 
Boogieball may suddenly change into a Superboogieball worth 20 points as 
opposed to the 10 points for each Boogieball popped. 


The Antagonist 
No game is complete without an antagonist. Eventually, an evil 
Boogiepopper-stopper will ascend from the box and try to stop you, and you 
can’t afford to be killed. 

To make the game even more difficult, a Boogieball or a Superboogieball 
may suddenly change into one of these menacing Boogiepopper-stoppers. If 
you're anywhere around it, quick reflexes are demanded to make a quick get- 
away, unless, at the rate the Boogiepopper-stopper is moving, you can delib- 
erately be killed by the stopper boogeying on top of you! 


Typing the Program 
When entering the program, don’t use any spaces except in PRINT state- 
ments since the program will take up most of the memory. Also, note that 
lines 66 and 78 will exceed the standard limit of 88 characters per line num- 
ber, so crunching is required by using the abbreviated keywords. For help on 
crunching a program, refer to Appendix D in your Personal Computing Guide 
which has a list of keyword abbreviations. 

Good luck and may the popping force be with you! 
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For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,” Appendix C. 


Some lines of this program require keywords to be abbreviated so that they will not exceed the four-screen-line 
limit. See Appendix B. 


1 HI=8 :W=208 :CC=30726 :V=36878 :GOTO67 :rem 69 
2 PRINTCHRS (147) :SC=@:S1=V—2 :Z1=122:22=76:Z23=80:Z4=79:Y1=125: 
Y2=199 :Y3=110:Y4=112 srem 228 
3 Pl1=7793:P2=7704:P3=7725:P4=77 26: C=32 :A=7911:B=81 srem 248 
4 POKE8164,147:POKE8165,131:POKE8166,143:POKE8167,146:POKE816 
8,133:POKE8169, 186 srem 19 
5 FORP=@TOLS5 :POKE8170+P,160:POKE38891+P,1:NEXT srem 32 
6 FORP=@TO2 :POKE7888+P , 160: POKE7910+P, 160 :POKE7932+P, 162 

srem 41 
7 POKE38608+P ,6:POKE38630+P ,6:POKE38652+P ,6:NEXT srem 93 
8 POKE38631,1:POKE/7911,81 z:rem 153 
9 FORP=0TO21 : POKE7680+P , 160 :POKE384090+P ,6:POKE8142+P,160:POKE 
38862+P,6:NEXT srem 228 
16 FORP=0TO442STEP22 :POKE76890+P,160:POKE38400+P ,6:POKE77@1+P, 
160 :POKE38421+P,6:NEXT srem 218 
11 REM srem 708 
12 IFA=P1 ORA=P2 ORA=P30RA=P4 THEN48 srem 114 
13 POKEP1, Z1:POKEP2,2Z2:POKEP3, Z3:POKEP4, Z4 :rem 186 
14 POKEP1 ,Y1 :POKEP2,Y2:POKEP3,Y3:POKEP4,Y4 :rem 183 
15 POKEP1,C:POKEP2,C:POKEP3,C:POKEP4,C s:rem 152 
16 IFPEEK(197)=12THENP1=P1-22 :P2=P2-22 :P3=P3-22:P4=P4-—22 :GOSU 
B42 s:rem 246 

17 IFPEEK(197)=44THENP1=P1+1:P2=P2+1:P3=P3+1:P4=P4+1 :GOSUB43 
srem 41 
18 IFPEEK(197 )=36THENP1=P1+22 : P2=P2+22 :P3=P3+22 :P4=P4+22 :GOSU 
B44 :rem 248 

19 IFPEEK(197)=20THENP1=P1-1 :P2=P2-1 :P3=P3-1 :P4=P4-1 :GOSUB45 
srem 47 
26 POKEA, 32 s:rem 99 
21 X=INT(RND(1)*5)+1:1FX=1THENA=A-44 :rem 183 
22 IFX=2 THENA=A+2 :rem 5 
23 IFX=3THENA=A+44 srem 61 
24 IFX=4 THENA=A-2 :rem ll 
25 IFPEEK(A) <>32THENGOSU B47 :rem 166 
26 POKEA,B :rem 792 
27 IFSC<@OTHEN65 :rem 148 
28 IFSC> 5@6THENL=15@8 srem 128 
29 IFSC<99THENPOKE8173,1690 srem 5@ 
36 IFSC>100THENL=1902 srem 160 
31 IFSC<999THENPOKE8174,160 srem 1@1 
32 IFSC>158@THENL=5@ :rem 123 
33 IFSC> 208THENL=25 ‘rem 122 
34 IFSC> 300 THENL=10 srem 118 
35 IFSC>489THENL=5 -rem 76 
36 PRINTCHRS(19)"{22 DOWN} "CHRS$(18)CHRS(5)SPC(6);SC; CHR$(145) 
:rem 19 
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ore Games 
AA=INT( RND(1)*L)+1 s:rem 157 
IFAA=3THENB=42 srem @ 
I FAA=5 THENB=87 srem 12 
POKEV,15:POKE36875 , 252 :POKE36875,252 : POKE36875,8 :rem 195 
GOTO1]1 srem @ 
IFPEEK( Pl )=16QORPEEK( P2 )=160THENP1=P1+22 :P2=P2+22 :P3=P3+22 
:P4=P4+22 : RETURN srem 194 
I FPEEK( P2 )=168ORPEEK( P4)=1698THENP1=P1-1 :P2=P2-1:P3=P3-1 :P4 
=P4-1 : RETURN srem 168 
IFPEEK( P3 ) ANDPEEK ( P4)=169THENP1=P1-22:P2=P2-22:P3=P3-22:P4 
=P 4-22 :RETURN srem 212 
IFPEEK( Pl )=16Q9ORPEEK( P3 )=16Q0THENP1=P1+1 :P2=P2+1 :P3=P3+1:P4 
=P4+1 :RETURN srem 160 
RETURN srem 74 
POKEV, 15 : POKE36877 , 250 :FORT=1TO10@ : NEXT : POKE36877 ,@:A=7911 
:SC=SC-190:B=81 :RETURN srem 24 
POKEP1 ,77:POKEP2,78:POKEP3,78:POKEP4,77 srem 74 
IFB=87THEN58 srem 134 
POKEV, 15:POKES1 , 250 :FORT=1TO1906 : NEXT: POKES1 ,@: POKEA, 32 :A=7 
911 :SC=SC+12 srem 249 
I FB=42 THENSC=SC+19 : B=81 srem 32 
GOTO21 srem 3 
PRINTCHRS(19)SPC( 242) SPC(66)CHRS(29)" PLAY AGAIN? 
{2 SPACES}(Y/N)" srem 32 
GETAS : 1 FAS=""THEN54 srem 245 
IFAS="Y"THEN2 srem 153 
IFAS="N"THENPOKE36879, 27 :PRINTCHRS (147) CHRS(31):END 

srem 174 
GOTO54 srem 14 
FORPP=15TO1STEP-.5 srem 55 
POKEPI1 , 42: POKEP2 , 42 : POKEP3 , 42 : POKEP4, 42 srem 42 
POKEP1 ,86:POKEP2 , 86 :POKEP3 ,86:POKEP4, 86 :rem 66 
POKEP1 , 77: POKEP2, 78:POKEP3 , 78: POKEP4, 77 srem 69 
POKEP] ,C: POKEP2 ,C: POKEP3 ,C: POKEP4,C srem 152 
POKE36877,15@:POKEV, PP :rem 244 
NEXT: POKE36877,9 :B=81 srem 159 
IFSC>HITHENHI=SC srem 242 
PRINTCHRS(19)SPC(11@)CHRS(18)CHRS(5)SPC(7)"GAME OVER":PRIN 
TCHRS(17)SPC(7)CHRS$(18)CHRS(5)"HI:";HI:GOTO53 srem 175 
POKE36879,8:PRINTCHRS(147)SPC(116) CHRS (38) "BOOGIEBALL"CHRS 
(5) srem 229 
FORT=1T030906 :NEXT srem 246 
PRINTCHRS(147)CHRS$(17)"THE OBJECT OF THE GAME{4 SPACES}IS 
{SPACE}TO POP THE" srem 31 
PRINT" {4 SPACES }BOOGIEBALL BY" srem 163 
PRINT"MANEUVERING YOUR '+'." srem 32 
PRINTCHRS (17) CHRS(159)"{3 SPACES}T" srem 67 
PRINTCHRS(17)"{3 SPACES}I" srem 62 
PRINT"< J K >{18 SPACES }M"SPC(44)CHRS(157)"V" :rem 192 
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PRINTCHRS (19) SPC(163)CHRS$(5)"Q "CHRS$S(158)"GET THIS," 
srem 154 


PRINTCHRS$ (17) SPC(9)CHR$(5)"* "CHR$(158)"AND THIS, ":rem 132 
PRINTSPC(9)CHR$(5)"W "CHR$(158)"BUT NOT"SPC(16)"THIS!" 


s:rem 88 

PRINTCHRS(17)CHRS(38)"POINTS ARE SUBTRACTED{3 SPACES}IF TH 

E BOOGIEBALL{4 SPACES}REACHES THE BORDER." srem 93 

PRINTCHRS(17)CHRS(5)" Q=16 PTS. *=2@ PTS.{5 SPACES }W=BLOWS 

YOU UPI" a zrem 98 
PRINTCHRS (17) CHRS$(18)CHRS(159)"HIT ANY KEY TO START" 

srem 134 

GETAS : I FAS=""THEN81 s:rem 245 

GOTO2 :rem 213 
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Light Cycles 


In this two-player game, which requires the Super Expander cartridge, lines of 
light race across the screen, each trying to outmaneuver the other. The game 
itself is quite simple. Cut off your opponent without hitting anything—walls, 
your own trail, or your opponent’s track. If you’re not careful, you can even 
get caught in an exploding light cycle. 

Type in “Light Cycles,” save it, and (making sure you have the Super 
Expander cartridge plugged in) load and run it. The game screen immediately 
appears. 

The red player controls the light cycle with a joystick. The blue player, 
however, uses the keyboard. Pressing four keys moves the blue cycle in the 
following directions: 

P Up 
L Left 

Down 

Right 
As your cycle moves across the screen, notice that it picks up speed. The far- 
ther it moves in one direction, the faster it travels. This lets you race your 
opponent to a wall as you try to cut him or her off. 

Don’t backtrack—your light cycle will explode! 

Once you've trapped your opponent, a score is displayed, based on the 
length of your trail and the time you survived. You have the options of play- 
ing a new game, restarting the previous one (retaining the point totals so 
far), or quitting. 


Light Cycles 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


@ REM SET KEY REPEAT,SET VARIABLES TO STARTING POSITIONS 


:rem 5@ 
5 POKE65@,128:BF=2:FF=1 :GOSUB19@ : RS%=@ : BS3=0 s:rem 72 
18 SCNCLR:COLOR1 ,6,90,8:GR%=RGR(Q) :IFGR&<>1THEN:GRAPHIC1 
rem. i157 
15 REM CLEAR SCREEN:{2 SPACES}SET COLOR:GRAPHIC MODE :rem 115 
28 DRAW2,69,690TO966, 6OTOI66, 966TO6G , 9I66TOED , 60 srem 78 
38 DRAW1 ,8,O9TO1923,0T01923,1023TOO,1923T0O8,G srem 142 
35 REM DRAW BORDER :rem 56 
490 GOTO208:REM GAME START srem 245 
108 DX$=1 :DY%=0: RX=107 .4:RY=107 .4:XRS=197 :YR4¥=107 :SR=180:R3=8 
:rem 248 
105 R%=RJOY(@) srem 15 
118 SY%=DY% :SX%=DxX% :rem 106 
120 XD%$=-1 : YD$=@ : BX=9 24: BY=9 24.6 :XB%=924 : YB%=924 ..6: BR=147:GS= 
si Wie srem 69 
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YS%3=YD%3 :XS3=XD% srem 1068 
RETURN:REM SEE LINE @ srem 201 
FORF2=1 TOINT(RND(1)*38)4+18:FORF1=1LTOFF:REM HOW LONG AND H 
OW MANY MOVES RED GETS :rem 188 
R$=RJ OY(@) :rem 16 
REM R%=JOYSTICK INPUT AND WHERE TO GO :rem 178 
ON R&GOTO250, 260,80, 270,230, 230,8,2898 srem 1 
GOTO30@ srem 97 
DY%=-1:DX%3=0 :GOTO290:REM DYSANDDX% ARE DIRECTIONS RED MOV 
ES srem 15 
DY$=1 : DX3=0 :GOTO2904 srem 62 
DY%=0 :DX$=-1 :GOTO290 srem 108 
DY %=94 : DX3=1 : GOTO29@ srem 64 
IF (DY%<>SY%) AND ( DX%<>SX% )=-1 THEN: SOUND ,8,2,9,15 srem 26 
REM BREAK SOUND ON DIRECTION CHANGE :rem 83 
SY%=DY% :SX%=DX% :SR=18@ srem 45 
RX=RX+DX%*12.8:RY=RY+DY%3*6.4:XRS=RX : YRS=RY: SR=ESR+M.4 

srem 223 
REM VARIABLES FOR{2 SPACES }MOVEMENT srem 193 
SOUND®, SR, BR, 230,2:REM SR=RED SOUND: BR=BLUE srem 148 
RD%=RDOT(XR%,YR%) :REM CHECK TO SEE IF RED HIT SOMETHING 

srem 219 
IFRD%<>1l THEN 880 :rem 82 
POINT3 , XR%,YR% srem 75 
NEXT s:rem 215 
FORF3=1TOBF: REM{3 SPACES}BLUE MOVEMENTS srem 145 
G=PEEK(197):REM{2 SPACES}KEYBOARD INPUT AND WHERE TO GO 

s:rem 186 
IFG=64THENGOTO59@@ srem 15 
ONINT (G/18)GOTO0482,478,458,460 :rem 189 
GOTO502 srem 101 
YD%=1 :XD%=8 :GOTO49G srem 65 
YD%=9 : XD%=1 : GOTO494 srem 66 
YD%=8 :XD%=~-1 :GOTO494 srem 112 
YD%=-1 :XD%=8 s GOTO 494 :rem 113 
IF (YD%$<>YS% ) AND ( XD&<>XS% )=-1 THEN: SOUNDG,9,9,0,15:REM SEE 
{ SPACE} 292 srem 180 
YS%$=YD% :XS%=XD$% : BR=147 srem 33 
BX=BX+XD%* 12.8: BY=BY+YD%3*6.4:XB%=BX : YBS$=BY : BR=BR+0.4 

srem 63 

REM SEE 395 srem 243 
SOUNDS, SR, BR, 230,2 srem 255 
BD%=RDOT(XB%,YB%):REM CHECK IF BLUE HIT SOMETHING:rem 122 
IFBD%<>1 THEN 9006 :rem 69 
POINT] ,XB%,YB3 s:rem 43 
REM :rem 126 
NEXT :rem 218 
CC%=CC$+1 sNEXT: BF=3~BF:FF=3-FF:GOTO20:REM REVERSE SPEED A 
DVANTAGE srem 223 
GOSUB139@0:REM EXPLODE RED AND CHECK BLUE :rem 63 
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818 


815 
820 


836 
8408 
850 
BO8 
986 
919 


915 
928 
930 


940 
956 
955 
968 
970 
972 
974 
976 
98 
9908 
1899 
11908 
1110 
1209 
1306 
1395 
1310 


1326 
1336 
1406 
14985 
1410 


1426 
1439 
1589 
15196 
1520 
1536 
2086 


302 


IFRDOT ( BX+XD%* 12.8, BY+YD$*6.4) <>1 THENGOSUB1 409 : GOSUB1 580: 
GOSUB19@ :GOSUB9594 :rem 227 
GOSUB159@@ :rem 228 
DX$=1:DY$=0: RX=107 .4:RY=107 .4:XR$=107 : YR$=107 :SR=130 : RB=8 
s:rem 1 

SY%=DY% : SX3=DX3 srem 115 
BS$=BS$+CC% :CC$= :rem 117 
GOTO958 srem 116 
REM ADD SCORE TO RED srem 69 
GOSUB1498:REM SAME AS 80@@-,EXCEPT FOR BLUE srem 127 
IFRDOT ( RX+DX%*12.8,RY+DY%*6.4) <>1THENGOSUB1 390 :GOSUB1500: 
GOSUB1@@ : GOSUB95@ srem 3 
GOSUB15@@ srem 229 
RSZ=RS3+CC3 : CC$=O srem 148 
XDZ=-1 :YD$=4 : BX=924 : BY=924 .6 :XB3=924 :YB$=924.6:BR=147:G$= 
as Bigg :rem 78 
YS%=YD% :XS%¥=XD¥ srem 117 
GRAPHIC4 srem 2908 
REM PRINT SCORE AND OPTIONS srem 143 
PRINT" {3 DOWN}{6 RIGHT}{RED}RED {BLK}";RS% rem 221 
PRINT"{3 DOWN} {6 RIGHT} {BLU}BLUE{ BLK}";BS2 :rem 30 
DI3=RS%-BS$% srem 66 
IFBS%> RS3 THENDIL3=BS%-RS% srem 196 
PRINT" {3 DOWN}{3 RIGHT}DIFFERENCE";DI% srem 185 
PRINT"{3 DOWN}{5 SPACES}1:NEW GAME" srem 20 
PRINT"{5 SPACES}2:CONTINUE WITH{9 SPACES}GAME" srem 154 
PRINT"{5 SPACES}3:QUIT GAME": POKE198,0 :rem 195 
GETES : IFES=""THEN119@ :rem 175 
ONVAL( ES )GOTO5,10,2000 :rem 230 
GOTO114@ :rem 190 
FORI=1T0O10 srem 102 
REM DRAW RANDOM RED LINES srem 242 
DRAW3, RX, RYTORX+INT( RND(1)*1@08)-50,RY+INT(RND(1)*190)-5@ 
srem 43 

NEXT :rem 5 
RETURN srem 167 
FORI=1TO19 srem 1983 
REM DRAW RANDOM BLUE LINES :rem 64 
DRAW1 , BX, BYTOBX+INT( RND(1)*100)-5@, BY+ INT( RND(1)*108)-50 
srem 234 

NEXT :rem 6 
RETURN srem 168 
FORI=254TO135STEP-1:REM MAKE EXPLOSION SOUND :rem 42 
SOUNDI,8,0,9,15 srem 63 
NEXT :rem 7 
SOUND@Z ,8,8,8,98:RETURN srem 12 
END srem 153 
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Rescue Mission 


You need an unexpanded VIC, a joystick, and quick reflexes to complete 
“Rescue Mission.” 

You have just flown into a courtyard, and your job is to get as many 
people onto open ground as possible. Bullets are flying from the gun tower, 
people are popping in and out, and the courtyard walls are high. You must 
remain observant of the people popping out in the open. Rescue them only 
by sweeping down and picking them up; they’re the only ones who will earn 
you points. Each time you happen to get shot or crash, you’ll lose three 
points and one of your four turns. Time is short (about a minute and a half) 
and the people are panicking, so work fast. Flying high puts you out of 
range of gunfire and allows you to fly faster. 


Typing In the Program 


Note that periods are used in place of zeros to speed up the program. In or- 
der to get the program to fit into the unexpanded VIC, certain memory-saving 
techniques were necessary. Be sure not to add any extra spaces. 


Rescue Mission 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,”” Appendix C. 


5 PRINT" {CLR}":POKE36879,29:PRINT"{6 DOWN}{4 RIGHT} {RVS}RESCU 


E MISSION" :rem 138 

6 POKE52,29:POKE56,29 :CLR:A=25600:TIS="Q@QGOGB" :rem 58 
7 FORI=7176T07431 : POKEI , PEEK( I+A) :NEXT :rem 199 
8 FORI=7594T07631 :POKEI, PEEK(I+A) :NEXT :rem 167 
9 POKE37139,.:B=37154:C=37137:D=37152 :rem 2 
19 E=30726 :F=36878 :G=8142 :H=8164 :W=81 26 :J=7697 :K=. :Q=8:U=8980 
:rem 148 

12 READA:IFA=-1 THEN22 srem 248 
13  FORN=ATOA+7 : READM: POKEN ,M:NEXT:GOTO12 srem 127 
14 DATA7384,255,16,112,143,142,112,204,204,7392,16,16,112,143 
,142,112,204,204 srem 237 

15 DATA7406 , 24, 36,56,255,16,40,49,198,7408,153,98,60, 255, 24,6 
9,908,153 srem 122 

17 DATA7416,16,16,16,56,56,124,124,124,7432,255,255,255, 255,2 
4,24,24,24 | :rem 232 

19 DATA7449, 225,162, 236,148,152,156,248,252, 7448, 254, 255,255, 
6,198,70,798,254 :rem 241 

20 DATA7456,128,96,56,25,14,11,31,31,7464,127,255,255,96,99,9 
8,98,127,-1 s:rem 49 

22 PRINT"{CLR}{UP}{2 RIGHT}{PUR}RESCUR MISSION{ BLU}":GOSUB18@ 
: POKEF-9,255:Z=TI | srem 213 

23 FORT=.TO3 : POKEJ+T, 27: POKEJ+E+T, .: NEXT srem 29 
24 X= INT (RND(1)* 20) :Y=INT(RND(1)*15) :IFX<.ORX>210RY<.ORY>217TH 
ENX=19 : Y=1@ srem 165 
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26 POKESC, 32 :SC=7702+X+22*Y 


srem 48 
27 POKESC, 27: POKESC+E, 2: POKEF-1, 200: FORL=9TOL5STEP.7:POKEF,L: 


NEXT srem 136 

28 POKEF ,4:POKEF-1,18@:POKESC, 28 srem 166 
30 POKEB, 127 :0%=( PEEK(C)AND28) OR( PEEK(D) AND128) srem 230 
32 P%=ABS((0%-100)/4)-7 s:rem 136 
35 ONPSGOSUB82,81,82,,83,84,87,,,,88,89,99 srem 213 
36 GOTO26 srem 190 
80 Y=Y+1:X=X~-1 :GOSU B94 ;: RETURN srem 121 
81 X=X-1:Y=Y-1 :GOSUB94 : RETURN srem 124 
82 X=X-1 :GOSUB94:RETURN srem 246 
83 Y=Y+1 :GOSUB94 : RETURN srem 247 
84 Y=Y-1 :GOSUB94:RETURN srem 250 
87 GOSUB94 : RETURN s:rem 118 
88 X=X+1:GOSUB94 :RETURN srem 250 
89 X=X+1 :Y=Y-1 :GOSUB94 : RETURN srem 130 
98 X=X+1 :Y=Y+1 :GOSUB94 :RETURN srem 1290 
94 IFX<.THENGOSUB169 srem 4 
95 IFX>21THENGOSUB160 srem 60 
96 IFY>21THENY=21 s:rem 32 
97 IFY<.THENY=. srem 181 
108 IFABS(TI-Z)>15*360THENR=4 : POKEF, . :GOTO166 srem 221 
103 IFSC<8054THENRETURN srem 213 
194 IFPEEK( 8079 )=28THEN159 srem 222 
186 IFPEEK(8@54)=28THEN15@ srem 217 
188 IFPEEK(81906)=28THEN155 s:rem 222 
118 IFPEEK( 81907 )=28THEN155 srem 216 
112 IFSC<8120THENRETURN srem 207 
114 IFPEEK(G+1)=28THENGOSUB16@ srem 43 
115 IFPEEK(H+1 )=28THENGOSUB16@ srem 45 
117 IFPEEK(G+2)=28 THENGOSUB16@ srem 47 
119 IFPEEK(H+2 )=28THENGOSUB16@ srem 5@ 
120 IFPEEK(H+11)=28THENGOSUB169 srem 92 
122 IFPEEK(G+11)=28THENGOSUB169 srem 91 
124 IFPEEK(H+14)=28THENGOSUB169 srem 97 
126 IFPEEK(G+14)=28THENGOSUB169 srem 98 
127 IFPEEK(W)=28THENGOSUB164 srem 227 
129 IFPEEK(W+1 )=28THENGOSUB169 srem 65 
13@ IFPEEK(W+22 )=28THENGOSUB169 srem 1908 
132 IFPEEK(W+23 )=28 THENGOSUB169 s:rem lll 
134 IFPEEK (W+44 )=28THENGOSUB169 s:rem 116 
136 IFPEEK(W+45 )=28THENGOSUB169 srem 119 
138 IFPEEK(H+K)=28THENS=S+19 :GOTO173 srem 178 
139 IFPEEK(H+Q)=28THENS=S+1 :GOTO173 srem 137 
141 RETURN srem 118 
150 POKEU, 46 :POKEU+tE, .:POKEU+23 ,46:POKEU+23+E,. srem 52 
152 FORV=.TO2 :sFORL=14TO.STEP-2 :POKEF, L: FORT=1TO20 :NEXT:NEXT:N 
EXT srem 190 

154 POKEU ,32:POKEU+23 ,32:GOTO164 srem 152 


155 POKE81@06, 46: POKE8106+E, .:FORL=14TO.STEP—-2 :POKEF,L:FORT=1T 
srem 173 


O26 sNEXT: NEXT 
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156 POKE8196,32 z:rem 43 

16@ POKEF+1,31:S=S-3 srem 117 

161 POKESC, 38:POKESC+E,4:POKEF-1,195:FORL=15TO.STEP-1 :POKEF,L 

: FORT=1TO1LGOO sNEXT: NEXT srem 62 

164 POKEJ , 32:J=J+1 :R=R+1 :POKEF+1 ,29 srem 37 

166 IFR=4THENPOKEF+1,8:PRINT"{CLR}{WHT}{1@ DOWN}{6 RIGHT}*GAM 

E OVER*" srem 248 

167 IFR=4THENPRINT"{2 DOWN}SCORE ";S srem 28 

17Q IFR=4THENPRINT"{DOWN}HIT FIRE TO PLAY AGAIN{BLK}":WAIT371 

37,32 :WAIT37137,32,32:GOTO5 srem 18 

171 POKESC,32:GOSUB175 :GOTO3@ srem 28 
173 POKEF-1,.:POKEF,15:POKEF-2,220:FORT=1TO1@ :NEXT: POKEF-2,. 

srem 159 

175 PRINT" { HOME}{BLK}{3 DOWN}SCORE{4. SPACES}{3 LEFT}";S:FORT= 

1TO1200 :NEXT srem 231 

176 POKESC,32:X=INT(RND(1)*20)+.:Y=INT(RND(1)*15) :SC=77@02+X+2 

2*Y:POKESC, 28 srem 83 

177 Q=INT(RND(1)*21):K=INT( RND(1)*2@) : IFK=QTHENK=Q-1 :rem 84 

178 IFQ=1ORQ=20RQ=6O0RQ=70ORQ=110RQ=14 THENQ=4 srem 48 

188 POKESC,32:POKEG+1 , 31 :POKEG+1+E,5 :POKEG+2,31:POKEG+2+E,5:P 

OKEH+1,33 :POKEH+1+E,5 srem 96 

182 POKEH+2,33 :POKEH+2+E,5:POKEG+11,31:POKEG+11+E,5:POKEH+11, 

33 :POKEH+11+E,5 srem 154 


185 POKEG+14, 31 :POKEG+14+E,5 : POKEH+14,33:POKEH+14+E,5 :rem 42 
198 POKEW+1,34:POKEW+1+E, 2:POKEW, 36 : POKEW+tE, 2 : POKEW+22,35:POK 


EW+22+E, . srem 216 

192 POKEW+23,37:POKEW+23+E, .: POKEW+44, 35 : POKEW+44+E, . : POKEW+4 

5437 srem 8@ 

193 POKEW+45+E,. srem 129 
194 POKEH+Q, 29:POKEH+Q+E,6:POKEH+K, 29 : POKEH+K+E, . : RETURN 

srem 240 

2006 END srem 1905 
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—— Hunt 


“Scavenger Hunt,” for the unexpanded VIC, is a perfect game for a Hallow- 
een party. But play it once and you may be hooked. It’s colorful and has 
plenty of action and excitement. As your play improves, you reach more 
difficult levels but are rewarded with higher point values. 

The object of the game is to collect—in only five minutes—10 each of 
the following items: clocks, jack-o’-lanterns, steins, televisions, and umbrel- 
las. To reach the next level, you must also collect at least 25 bonus items: 
candles, hot dogs, and lamps. All of these items appear at the bottom of the 
screen and move upward. You use the joystick to move a little figure around 
the screen to collect the objects. You may stop the scrolling by pressing the 
fire button. 

Sounds easy, right? There are complications. Scattered all over the 
screen are hedges. If you hit too many of them in a short period of time, you 
lose all your bonus items and are delayed for about five seconds. Stopping 
the scrolling with the fire button helps you gather objects and avoid hedges, 
but not without risk. It also releases a ghost from one of the four corners. 
The ghost’s intent is to get you. Releasing the button stops the ghost dead. 
Pressing it again will release another ghost. The result of contacting a ghost 
is devastating. You lose all items collected in that round. 

If you obtain your quota and collect enough bonus items, you will ad- 
vance to the next level. In the second round, play is the same, but you must 
run into fewer hedges. Ghosts will rush you twice as fast. 

It’s quite difficult to reach the third level, but not impossible. In the third 
round, you may not run into even one hedge without penalty. Ghosts move 
at triple speed. Can you make it to level four? 


Typing In the Programs 
The programs as listed here are written for disk. If you use a Datassette, de- 
lete line 337, and replace lines 330 and 335 with the following: 
330 PRINT’”{CLR} {3 DOWN}PLEASE WAIT FOR PART 2{DOWN}TO 


LOAD.{DOWN} {WHT} 
335 POKE198,1:POKE631,131:END 


Before beginning to enter the program, remove all expansion memory. 
Then type in Program 1 and save it, after making sure there are no errors. 
Next, enter and save Program 2. Tape users should be sure to save Program 
2 on the same tape immediately following Program 1. Disk users must save 
Program 2 with the filename SCAVENGER.2. 

Now, reload Program 1. When you run the program, it will take about 
six seconds to load the machine language and character information. It will 
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then ask if you need instructions. If you do, press the joystick fire button. 
When you finish with the instructions, or if you didn’t need them, Program 2 
will automatically load. You may then center the screen with the cursor keys 
and press the fire button to start play. 


Program 1. Scavenger Hunt 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


188 REM SCAVENGER HUNT{11 SPACES}PART ONE srem 1@7 
105 IFPEEK(56)<>3@8THENPRINT"{CLR}NO EXPANSION, PLEASE. ":END 
srem 237 
118 POKE36879,136 srem 152 
115 PRINT"{CLR} {4 DOWN} {4 RIGHT} {RVS}{WHT}SCAVENGER HUNT 
srem 133 
120 PRINT"{3 DOWN}{2 RIGHT}{RVS}{BLK}REQUIRES{2 SPACES}JOYSTI 
CK :rem 49 
125 POKE52, 28:POKE56, 28: FORC=7552T07631 : POKEC, PEEK (C+25600+12 
8*8) sNEXT :rem 112 
136 FORL=1TO11 :READA: READB: FORC=0TO7 : POKE7 168+A* 8+C, PEEK( 3276 
8+B*8+C) :NEXT:NEXT srem 106 
135 FORL=1TO11 :READA: FORC=@TO7 : READB: POKE7 168+A* 8+C,B:NEXT:NE 
XT srem 244 
148 FORL=7168T0O7 359 : READA: POKEL,A:NEXT srem 136 
145 DATA32,32,62,158,61,159,63,42 :rem 141 
15@ DATA44,147,45,148,46,143,47,144,58,148,59,129,68,153 
s:rem 7 
155 DATA35,62,127,107,127,127,127,127,85, 34,42,186,162, 234,16 
8,174,138,171 srem 134 
169 DATA36, 28,42,127,119,93,34,28,0,37,28,62,127,8,8,8,8,12 
srem 145 
165 DATA38, 30,126,94,94,94,126,38,63,39,62,65,81,73,73,73,62, 
DB srem 51 
178 DATA41,48,48,168,168,168,168,168,168,42,8,255,255,178,17@ 
,255,255,8 srem 251 
175 DATA43,252,252,252,252,252,32,32,168,48, 34, 20,8,127,69,71l 
,69,127 srem 79 
188 DATA33,28,8,28,62,93, 28, 20,54 srem 142 
185 DATA169,8,141,15,144,169,255,141 srem 43 
198 DATA5S,144,169,2409,141,14,144,169 srem 32 
195 DATA127,141,34,145,169,10,141,254 :rem 80 
260@ DATA28,141,255,28,96,169,4,45 srem 146 
205 DATA17,145,208,19,169,8,205,255 srem 229 
218 DATA28,248,3,206,255, 28,169,8 srem 138 
215 DATA45,17,145,208,18,169,21,2@85 srem 230 
220 DATA255, 28,240,3,238, 255, 28,169 s:rem 244 
225 DATA16,45,17,145,208,19,169,@ srem 132 
230 DATA2@5,254, 28,240,3,206,254,28 srem 229 
235 DATA169,119,2905,32,145,208,19,169 srem 84 
240 DATA29,205,254, 28,240,3,238,254 :rem 227 
245 DATA28,169,248,205,14,144,24@,3 :rem 231 
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256 
255 
260 
265 
270 
275 
280 
285 
290 
295 
388 
385 
318 
315 
320 
325 
338 
335 


337 
346 
345 
356 
355 
360 
365 
370 
375 
389 
385 
390 
395 
486 
495 
419 
415 
426 
425 
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DATA266,14,144,96,173,253,28,281 :rem 28 
DATAD ,208,5,170,168,76,146,28 srem 146 
DATA2@1,1,208,7,162,20,168,21 srem 112 
DATA76 ,146,28,201,2,208,7,162 srem 140 
DATAGD, 160,21,76,146, 28,162,208 srem 126 
DATA169 ,@,142,251,28,149,252,28 srem 228 
DATA96,173,251,28,205,254, 28,240 srem 38 
DATA11,48,6,206,251,28,76,172 :rem 146 
DATA 28 , 238,251, 28,173,252, 28,285 :rem 39 
DATA255,28,240,11,48,6,206,252 srem 191 
DATA28, 76,191, 28, 238,252, 28, 96 srem 204 
PRINT"{3 DOWN} {WHT}{2 SPACES}NEED INSTRUCTIONS? :rem 143 
PRINT" {DOWN}PRESS FIRE BUTTON NOW.{BLK} srem 149 
FORL=1T050@ : I FNOTPEEK ( 37137) AND32THEN349 srem 165 
NEXT srem 212 
POKE36879,15:POKE36869 , 240 srem 167 
PRINT" {CLR}{YEL}PLEASE WAIT {SHIFT-SPACE} srem 5 
POKE198, 2 :POKE631,13:PRINT" {HOME} {BLK}":PRINT"{2 DOWN}LOA 
D" > CHRS (34) ; "SCAVENGER. 2"; CHRS$(34);",8" srem 162 
POKE632,13:PRINT"{5 DOWN}RUN":PRINT"{HOME}":END :rem 123 
POKE36879, 60 : POKE36869, 242 :rem 166 
PRINT" {CLR} {BLK} ": FORL=1T09 : READAS : IL FAS="<"THEN325 

srem 217 
PRINTAS :NEXT: PRINT"{3 DOWN}{BLU} {RVS}(PRESS{SHIFT-SPACE} 
FIRE{SHIFT-SPACE}BUTTON)"; srem 77 
IFPEEK( 37137) AND32THEN355 srem 171 
FORL=1T099 :NEXT:GOT0345 srem 215 
DATA"YOU HAVE FIVE MINUTES{DOWN}", "TO COLLECT 198 EACH OF 
{DOWN}", "THE FOLLOWING ITEMS: {DOWN} srem 219 
DATA "CLOCKS, JACK-O-LANTERNS", "STEINS, TELEVISIONS, {DOWN}" 
, "AND UMBRELLAS. FOR{ DOWN} srem 126 
DATA"BONUS POINTS, YOU MAY{DOWN}", "COLLECT AS MANY OF 
{DOWN}", "THESE AS YOU WISH: srem 52 
DATA"CANDLES, HOTDOGS, LAMPS.", "YOU USE THE JOYSTICK{ DOWN }" 
, "TO MANEUVER AROUND{ DOWN} srem 120 
DATA"HEDGES AND PICK UP THE", "OBJECTS. PRESS THE{DOWN}"," 
FIRE BUTTON TO STOP{ DOWN} 7 :rem 31 
DATA"THE SCREEN MOVEMENT{DOWN}", "FOR EXTRA CONTROL, BUT", 
"BEWARE THE GHOST WHICH :rem 7 
DATA"WILL RUSH YOU FROM ANY", "CORNER. RELEASING THE{ DOWN } 
" "BUTTON WILL KILL THE{ DOWN} 7 srem 133 
DATA"GHOST, BUT HE IS STILL", "DANGEROUS. {DOWN}", "{DOWN} 

srem 245 
DATA"YOU WILL NOT RECEIVE{ DOWN}", "BONUS POINTS UNLESS 
{DOWN}", "YOU REACH YOUR QUOTA. srem 37 
DATA"YOU LOSE YOUR BONUS{DOWN}","ITEMS IF YOU TOO OFTEN", 
"COLLIDE WITH HEDGES. {DOWN} :rem 235 
DATA"YOU LOSE ALL ITEMS IF{DOWN}", "YOU MAKE CONTACT WITH 
{DOWN}", "A GHOST. TO REACH THE{ DOWN} :rem 65 
DATA"NEXT LEVEL, YOU MUST{DOWN}", "OBTAIN YOUR QUOTA AND 
{DOWN}", "COLLECT 25 BONUSES. srem 32 
DATA"< srem 54 
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Program 2. Scavenger.2 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


180 
105 


119 


115 


REM SCAVENGER HUNT{11 SPACES}PART TWO srem 131 
R=RND(-TI) : POKE36879,10:PRINT"{CLR}{4 DOWN}{4 RIGHT} {GRN} 
{RVS}SCAVENGER HUNT srem 198 
PRINT"{4 DOWN} {CYN}{2 SPACES}CENTER SCREEN WITH{7 SPACES} 
{DOWN }CURSOR KEYS srem 12 
PRINT"{4 DOWN} {YEL} {RIGHT} {RVS}PRESS{2 SPACES}F B 

{2 SPACES}TO BEGIN srem 116 
GETAS s:rem 216 
IFAS=" {RIGHT }"THENPOKE36864 , PEEK( 36864) +1:IFPEEK(36864)=9 
THENPOKE36864, 2 srem 35 
IFAS=" {DOWN }"THENPOKE36865 , PEEK( 36865) +1:IFPEEK(36865)=35 
THENPOKE36865 , 16 :rem 123 
IF PEEK ( 37137) AND32THEN12@ srem 157 
PRINT" {CLR} srem 215 
SYS7168:DEFFNR(R)=RND(1)*R:SG=7421 :DEFFNP( P)=7680+X+Y*22: 
DEFFNG(G)=7680+XG+YG* 22 srem 229 
V= 36878 : CO=36879 :BZ=36875 :H=19 :U=36876 :LV=1 :D$=" {HOME } 

{7 DOWN} :rem 66 
FORM=@8TO2 STEP2 :FORL=1T0O22 :READA:NEXT: POKEV, 25@ srem 243 
FORL=1TO7 : READA: READB : POKEBZ, A: POKEU-M, A: FORP=@TO99*B : NEX 
T:NEXT: POKEV, 242 srem 42 
RESTORE: POKEU=M,@ : NEXT s:rem 205 
C=30720 :PX=7422 :PY=7423 :DEFFNJ (J)=NOTPEEK( 37137) ANDJ :POKE 
U,24@2 :rem 186 
K=2:TIS="Q98000G srem 209 
GOSUB535 :rem 182 
O=FNR( 25) :IFO> 9THENO=@ srem 66 
Z=@ : POKEFNP(P), 32 srem 224 
ON (0+1) GOSUB488 , 485,498,495 ,588,585,518,515,52@8 srem 139 
GOSUB525 srem 174 
SYS7197 s:rem 114 
X=PEEK( PX) : Y=PEEK( PY) srem 53 
IFZ=1ANDPZ<>FNP(P) THENPOKEPZ, 32 srem 4 
PZ=FNP(P) srem @ 
IFPEEK ( PZ ) > 33 THENON4 4— PEEK ( PZ) GOSUB358,358,3508,365,365, 36 
5, 365,365,375,418 srem 136 
POKEC+PZ, 7:POKEPZ, 33 srem 232 
IFTIS>"@0G500"THEN285 srem 92 
IFH < 190 THENH=H+1 :rem 1902 
IFFNJ( 32) THENGOSUB445 : Z=1 :GOTO2@65 srem 17 
GOTO185 srem 114 
BO=BO+Q : Q=0 : BN=8 : FORP=1T05 :Q( P)=6 :NEXT srem 196 
LV=LV+1l s:rem 121 
FORP=1TO9 : FORL=1TO9 : POKEV, 240+L: POKEBZ , 200+ P* 2+L*4 : POKECO 
7>P*¥2+20* L:NEXT:NEXT srem 255 
POKEV , 240 : POKECO,8 srem 67 
PRINT" {CLR}":PRINTTAB(119)LV :rem 41 
FORL=1TO2006 :NEXT s:rem 29 
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GOTO175 srem 112 
GOSUB53@ :GOSUB545 srem 15 
POKEV , 240 srem 226 
FORL=1TO30900 :NEXT srem 32 
IFQ< 7500* LVTHEN3 25 srem 16 
FORP=1TO9 : FORL=1 TO9: POKEV, 240+L: POKEBZ, 200+ P* 2+L* 4 : POKECO 
,P*® 2+20* L:NEXT: NEXT srem 255 
POKEV , 248 : POKECO, 8 srem 58 
FORL=1TO20900 sNEXT srem 24 
GOTO25@4 srem 101 
PRINT" {DOWN}{3 RIGHT} {PUR}= ,-./{4 RIGHT}{GRN}> /:;< 

srem 240 
IFFNJ (4) THENRUN1 49 srem 65 
IFFNJ (16) THENP RINT" {CLR} {BLU} "; :POKE36869 ,249:POKE37154,2 
55 :POKECO,27:END srem 199 
L=L+.@1 :IFL> 1THENL=@ : POKECO,FNR( 255) s:rem 1408 
GOTO330 srem 1067 
BN=BN+1 :POKEBZ, 252 :rem 25 
POKEV , 247 : RETURN srem 5 
POKEBZ, 235 :POKECO,8:GOTO355 | srem 153 
IFQ( 41-PEEK(PZ) )<>1@THENPOKECO,15:Q(41-PEEK(PZ) )=Q(41-PEE 
K(PZ))+1s:GOTO36@ srem 101 
RETURN srem 122 
POKEBZ,9:POKECO,25:POKEV,25 srem 214 
FORL=1TO11 : READA: READB : POKEU , A: FORM=0TO99*B : NEXT: POKEU ,@: 
NEXT srem 3 
RESTORE: POKEV, 249 : POKEU , 2490 : POKECO, 8 srem 36 
GOSU B53@ :FORL=98 TOS sGOSUB545 :NEXT srem 59 
FORL=1T0163 :PRINTDSSPC(L)" {WHT} #":FORP=1TO20:NEXT:NEXT:B 
N=9 :FORP=1T05 :Q(P)=8:NEXT s:rem 115 
FORL=9TO9 :GOSUB545 :NEXT:GOSUB535 s:rem 56 
SYS7276:RETURN srem 136 
H=H=-5* LV: I FH<@ THEN4290 srem 2190 
POKECO ,138 sFORL=1T0O9 :POKEBZ, 175-L* 5:POKEV, 253-L:NEXT: POKE 
CO ,8:RETURN srem 112 
FORM=1TO6 :GOSU B415 :NEXT: H=10:POKFV, 2490 srem 127 
GOSUB53@ srem 179 
FORL=1T0O29 :GOSU B545 :NEXT srem 14 
GOSUB535 srem 185 
BN=98 :RETURN srem 175 
I FZ=0 THENPOKESG , FNR( 4) :SYS7276 :GOTO46@ srem 158 
POKEGE , OP : POKEC+GE ,CP s:rem 65 
FORL=1 TOLV : SYS7321 :NEXT srem 3 
XG= PEEK ( 7419 ) sYG=PEEK( 7420) :GE=FNG(G) :OP=PEEK(GE) :CP=PEEK 
(C+GE) srem 35 
POKEC+GE,1:POKEGE,35 srem 174 
IFGE=PZTHEN375 s:rem 1907 
RETURN s:rem 128 
PRINT: RETURN srem 67 
PRINTTAB(FNR(21))"{RED}$":RETURN srem 142 
PRINTTAB (FNR( 21) )"{WHT} '":RETURN srem 118 


More Games 


PRINTTAB(FNR(21))"{BLU}&": RETURN s:rem 148 
PRINTTAB(FNR(21))"{PUR}%":RETURN :rem 3 
PRINTTAB (FNR(21))"{CYN}(":RETURN srem 14 
POKE646 ,10:PRINTTAB(FNR(21))"*":RETURN :rem 3 
POKE646 , FNR( 7) +9: PRINTTAB(FNR(21))")":RETURN srem 120 
POKE646 , FNR( 7) +9:PRINTTAB(FNR( 21) )"+":RETURN :rem 118 
POKE646 ,13 :FORL=1TO2 :PRINTTAB (FNR( 26) )" {UP} "CHRS$ (34) CHRS ( 
34) :NEXT:RETURN :rem 13 

PRINTDS" {UP} "; :FORL=1TO198:PRINT" {WHT} ">; sNEXT: RETURN 
:rem 155 
PRINT" {CLR}"; : FORP=1T023 :GOSUB48@ :GOSUB525 :NEXT :rem 72 
RETURN srem 121 
Q=0 : FORP=1 TO5 :Q=Q+Q(P)*100*LV: NEXT srem 73 
IFQ=5 08O* LV THENQ=Q+BN* 100* LV :K=5 srem 143 

PRINTDS"{cCYN} {5 RIGHT }"RIGHTS(TIS$,3),"{YEL}"Q+BO" { WHT } 
srem 93 

FORP=1T0O5 :PRINTTAB( P* 4-3) Q( P) ; sPOKE7920+P*4,41-P:NEXT 
srem 221 
POKE646 ,K:K=2 srem 218 
PRINTSPC(56-LEN(STRS$(BN*189*LV) ))"??"BN*1QQ*LV"2? :rem 38 
RETURN srem 129 
DATA175,6,175,4,175,2,175,6,187,4,183,2,183,4,175,2,175,4 
,167,2,175,8 srem 80 
DATA2 28 ,6,227,3,228,9,219,6,221,6,212,6,215,18 srem 214 
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| Hide-N-Seek 


“Hide-N-Seek” is a game for two players using an unexpanded VIC and a 
joystick. At the start of the game, player 1 must attempt to maneuver his or 
her figure across the board and pick up dots to collect points. Use these keys 
for moving in four directions: 


Up £5 
Down f7 
Right left/right cursor 
Left up/down cursor 


As the figure moves toward the opening, player 2 must try to catch and stop 
the figure by using the joystick to control a car. As the car moves, it puts out 
quad dots which are worth twice as much if player 1's character picks them 
up. If the character makes it to the opening on the other side of the screen, a 
new screen comes up with all dots increased in value. Once the car catches 
player 1’s figure, the roles reverse: Player 2 controls the figure and uses the 
keyboard, while player 1 controls the car by using the joystick. When player 
2 has been caught, the game is over. 


Hide-N-Seek 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


5 POKE36879 , 26 : POKE36878 15 :CL=38720:PRINT" {CLR} [10 DOWN } 


{5 SPACES} { RED} HIDE*N* SEEK{6 SPACES }" :rem 94 
18 POKES2,28:POKE56, 28 :CLR:P=36874 srem 229 
20 X=27 : FORI=7168T07679:POKEL , PEEK( I+ 25600) : POKEP+5 ,X:X=X+1i1 

FX=32THENX=24 srem 47 
22 IFI=7200THEN69O srem 7 
25 NEXT: I=1:J=0:R=2900 srem 227 


30 FORC=7432T07487 : READA: POKEC, A:NEXT: POKE36869,255 :srem 129 
40 DATA195 ,195,170,178,170,178,195,195,235,235,48,40,40,49,23 


5235 srem 230 
50 DATAD,2,0,24,24,0,0,8,0,102,192,8,0,102,102,0 :rem ll 
60 DATA255,195,189,165,165,189,195,255,0,32, 96,255,255, 96,32, 
Q@,28,28,8,62,8,28,20,29 :rem 128 
65 PRINT" {CLR}{2 DOWN} {RED}PLAYER";I", THE MAN, ":PRINT" { DOWN} 
USES THE KEYBOARD. ":IFI=2THENA=1 :GOTO79 srem 172 
67 A=2 s:rem 29 
70 PRINT"{3 DOWN} PLAYER";A", THE CAR, ":PRINT"{DOWN}USES THE J 
OYSTICK."™ srem 226 

75 PRINT"{4 DOWN} {RVS}GET READY !11!{OFF}":FORX=1TO5000 :NEXT 
srem 165 
8G Y=128:CL=30720 :FORX=7724T08185 : POKEX+CL,@ : POKEX, 35 : POKEP,, Y 
:Y=Y+1l : I FY=149THENY=128 srem 234 
82 NEXT:POKEP,@ srem 198 
85 FORX=1TO100:Y=INT( RND(1)*462)+1:POKE7723+Y+CL, 2 :POKE77/23+Y 
,372:POKEP+2 ,140+X : NEXT srem 227 
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87 POKEP+2,9 srem 167 
99 FORX=7724TO8164STEP22 : POKEX+CL,2 :POKEX, 37 : POKEX+21+CL,2:PO 
KEX+21,37:NEXT: POKE7944 ,32 srem 150 
106 FORX=7945T07949 : POKEX+CL,@:POKEX, 35 : POKEX+15+CL,9: POKEX+1 
5,35 sNEXT: L[LFN=2THEN17@ srem 166 

185 IFN=1 THEN19¢ srem 170 
110 FORB=9TO96 : READC: POKE831+B,C:NEXT srem 45 
120 DATA169,0,141,62,3 srem 94 
138 DATA141,60,3,141,61,3,169,98,141,19,145,169,127,141,34,145 
,173,32,145,41,128 srem 82 

149 DATA2@1 ,0,2608,5,169,1,141,60,3,169,255,141,34,145,173,17, 
145,41,8,201,0,208,5,169 srem 116 

158 DATA22,141,690,3,173,17,145,41,16,201,0,208,5,169,1,141,61 
,3,173,17,145,41,4,2981,@2 :rem 88 

160 DATA268,5,169,22,141,61,3,173,17,145,41,32,201,0,208,5,16 
9,1,141,62,3,96 s:rem 186 

170 G=8:H=19 :G=G-H :rem 230 
190 A=7945 :B=7964 :C=33 :D=39 srem 2983 
208 SYS831 :M=PEEK( 828) —PEEK (829) s:rem 79 
205 POKEP ,®:F=0: IFPEEK(A+M)=39THEN40@ srem 195 
210 E=PEEK(197) :IFE=23THENF=1 srem 191 
215 IFE=31 THENF=-1 srem 29 
2206 IFE=55THENF=-22 s:rem 82 
225 IFE=63 THENF=22 :rem 41 
230 IFF+B<77240ORF+B>8185THENF=9 srem 49 
235 IFPEEK(B+F )=37THENF=0 :rem 219 
240 IFPEEK(B+F)=35 THENG=G+H srem 96 
245 IFPEEK(B+F )=36 THENG=G+(H* 2) srem 19 
250 IFB=7944THENH=H+10:N=1 :GOTO8@ srem 214 
255 POKEB, 32 :B=Bt+F : POKEB+CL,6: POKEB, 39: POKEP+2, R: LFF=8 THENPOK 
EP+2,0 s:rem 139 

260 IFM=220RM=—22 THENC= 34 :GOTO27@6 :rem 243 
265 C=33 :rem 131 
276 IFM=210RM=-21 THENM=@ s:rem 185 
275 IFPEEK(A+M)=37THENM=@ s:rem 236 
288 IFA+M<77240RA+M>8185 THENM=@G srem 73 
296 POKEA+CL,@ : POKEA, 36 :A=A+M: POKEA+CL,12:POKEA,C: POKEP+2,9:P 
OKEP, R: LFM=@ THENPOKEP ,@ srem 19 


388 PRINT" {HOME} {GRN}H.S.{BLK}";J:PRINT"{HOME}{11 RIGHT}{GRN} 
# ={BLK}";H:PRINT" { HOME} { DOWN} {GRN} PLAYER{ BLK}";1I"{GRN}SC 


ORE{ BLK} ";G :rem 173 
3180 GOTO268 srem 95 
409 GOSUB5906 :I FI=1THENK=G :1I=2 :N=2:GOTO65 :rem 238 
4190 L=G:IFL>JTHENJ=L :rem 4 
426 IFK>JTHENJ=K srem 249 
436 O=1:IFL>KTHENO=2 srem 223 


44Q PRINT"{CLR}{3 DOWN}{RED}THE WINNER IS PLAYER";0 :rem 242 
450 PRINT"{2 DOWN}HIGH SCORE";J:PRINT"{3 DOWN}{8 RIGHT }SCORE" 


srem 79 
468 PRINT"{2 DOWN}PLAYER 1 :";K:PRINT"{2 DOWN}PLAYER 2 :";L 


srem 56 
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476 
480 
580 
519 


608 


616 


620 
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PRINT"{3 DOWN} HIT ANY KEY TO START" srem 134 
POKE198 ,@ :WAIT198,1 :I1=1 :N=1 :K=9:L=9 :G=9 :GOTO65 srem 2907 


POKEP+4 ,10:FORX=2390TO1 28STEP-1 : POKEP+2 ,X: FORY=1 TO20 :NEXT: 
NEXT: POKEP+2 , 0 :POKEP+3 , 200 srem 227 
FORX=15 TO@STEP—.@5 : POKEP+4 ,X :NEXT: POKEP+3 ,@: POKEP+4,15:RE 
TURN srem 147 


PRINT" {CLR}{2 DOWN}{RED}TO MOVE WITH KEYBOARD: ":PRINT" 
{DOWN}UP : PRESS F5":PRINT"{2 DOWN}DOWN : PRESS F7" 


srem 133 

PRINT"{2 DOWN}RIGHT : PRESS LEFT -":PRINT"{DOWN}RIGHT CRS 
R" srem 251 
PRINT"{2 DOWN}LEFT : PRESS UP - DOWN":PRINT"CRSR" :GOTO25 
srem 166 
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Steer Lift 


“Chopper Lift” is a challenging game for an unexpanded VIC. It uses 
custom character graphics and requires a joystick. When the game begins 
you start with 1000 units of time. Your objective is to achieve the high score 
by advancing from one level to the next. 

You'll start on level 1. Use a joystick to move your character back and 
forth across the platform, and try to catch the jumping bean. When you catch 
the bean, you'll receive one jump unit and 50 points. 

There’s a helicopter overhead with a hanging ladder. When you think 
you have enough jump units to reach the ladder, push the fire button. If you 
catch the ladder, you'll be pulled up into the helicopter and brought to the 
next level; you'll also receive 1000 points. If you fail to catch the ladder, 
you'll fall back to the platform for another try. Don’t waste your jumps, for 
the ladder gets longer and shorter, and the platform gets smaller. If the plat- 
form disappears from underneath, you'll fall down to the next level and lose 
1000 points. If you hit bottom or if time runs out, the game is over. 


Chopper Lift 


For mistake-proof program entry, be sure to use ‘The Automatic Proofreader,”” Appendix C. 


5 POKE36879,190:PRINT"{CLR}{11 DOWN}{5 RIGHT}{BLU}CHOPPER LIF 

T" :POKE52, 28: POKE56, 28:CLR srem lll 
18 FORI=7168T07679:POKEI , PEEK(1I+25609) sNEXT :rem 98 
15 FORC=7448T07535 : READA: POKEC, A:NEXT: POKE36869,255 :rem 133 
20 DATA56,56,16,254,56,56,40,40,186,186,146,254,56,56,40,40,2 


4,24,16, 28,16,56,194,76 s:rem 1905 

25 DATA48 ,48,16,112,16,56,44,199,0,0,0,0,0,90,24,24,24,24,0,0, 
0,09,08,08 srem 235 

38 DATA7,@,64,255,65,90,0,1,255,32,112,248,248,112,138,252,132 
p25927 139242592; 1L3272027132 srem 197 

35 DATA252,255,255,255,255,255,255,255,255,0,09,0,0,9,16,2909,2 
55 srem 73 

786 PRINT" {CLR}":CL=307 26 :A=8021 :1=21 :L=26 :S=16 srem 207 
75 Y=1000 : V=1 : W=0 : Z=0 : CC=36874 srem 201 
88 POKECC+2 ,@ :FORT=38730T038751 :POKET,4:NEXT:FORT=89033TO8052: 
POKET+CL,6 3: POKET, 44 :NEXT :rem 99 

85 B=7789 :D=22 :G=B:I=I-1 :L=L-1 :N=8932 :0=22 :Q=8011:U=80190:S=S- 
1: W=0 : AA=6 :K=0 :H=0 : R=O srem 29 

99 FORT=38519T038531 :POKET,@:NEXT: POKE(A~22)+CL,1:POKE(A-23)+ 
CL,1:GOSUB3090 s:rem 175 

95 POKECC+4,15 :DD=2909 srem 165 
190 J=37151 :POKEJ+3 , 255 :POKEJ+3,127 srem 261 
110 X=PEEK(J+1)AND128 :JE=-—(X=.) :X=PEEK(J) :JS=—((XAND8)=.):POK 
EQ, 39 s:rem 138 

120 JW=-((XANDI16)=. ) sJN=-( (XAND4)=.):FB=-((XAND32)=.):rem 174 
135 IFJETHENM=1 : C=37 :GOTO16@ srem 207 
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IFJWTHENM=-1 :C=38 :GOTO16@ srem 16 
I FFBTHEN602 srem 114 
M=8 :C=35:3: :rem 177 
POKECC,128 srem 19 
K=K+1 : I FK=LTHEN400 srem 43 
H=H+1 : 1FH=ITHENH=@ :GOSUB399 srem 137 
POKEQ , 40 :R=R+1 : I FR=STHENGOSUB59@@ srem 15 
IFPEEK ( A+M )=49 THENW=W+1 : Z=Z+50 : POKECC+2 , DD: GOSUB59@ 

s:rem 121 
PRINT" {HOME} {GRN}TIME{ BLK}";Y"{LEFT} ":Y=Y-1:PRINT" {HOME } 


{18 RIGHT} {GRN}SCORE{ BLK}";Z;"{LEFT} ":PRINT" {HOME} {DOWN} 


{GRN}JUMP{BLK}";W;"{LEFT} " srem 52 
PRINT" {HOME} {DOWN}{198 RIGHT}{GRN}LEVEL{BLK}";V;"{LEFT} " 
s:rem 128 
IFY=0 THENOOD srem 184 
POKEA, 32 :A=A+M: POKEA,C srem 34 
POKECC ,@ srem 173 
IFPEEK (A+22 )=44THEN1@O srem 210 
POKEQ , 32: IFV>1THEN80@ srem 3 
FORT=ATOA+132STEP22 :POKET+CL,4:POKET,35 :POKECC+2,DD: FORR= 
1TO25 :NEXT: POKET, 32 :NEXT srem 234 
POKEA+154+CL,4:POKEA+154,45 srem 237 
POKECC+2 ,@ : POKECC+3 , 220 : FORT=15TO@STEP-1 : POKECC+4, T: FORX= 
1T025 :NEXTX :NEXTT: GOTO9O@ srem 4 


FORT=1 TOF : POKEG , 32 :G=G-22 :NEXT: POKEG, 32 : POKEG-1,32:rem 85 
B=B+1 :D=D—-2 sE=INT( RND(1)*D)+1:F=INT(RND(1)*4)+5:G=B:G=G+E 


: POKEG , 42 : POKEG-1 , 41. srem 1708 
FORT=1 TOF : G=G+2 2 s:POKEG ,43 :NEXT: RETURN srem 145 
K=6 :O=O-2 : POKEN+0O , 32 :N=N+1 : POKEN,, 32 :GOTO17@ srem 68 
R= : POKEQ,32:P=INT(RND(1)*20)+1:Q=P+U:POKECC+2 ,0@: RETURN 
srem 74 
IFW=0 THEN155 srem 179 
POKEA, 32 :POKEA+CL, 1 :A=A-22 : POKEA, 36 : POKEA+CL,4:POKECC,DD: 
DD=DD+1 : W=W-1 : IFW=0 THEN659 srem 70 
IFA< 7834THEN6 59 s:rem 68 
IFPEEK(A-22 )=43 THENPOKEQ , 32: POKECC ,@ :GOTO7@@ s:rem 169 
GOTO680 srem 105 
POKEA, 32 : POKEA+CL, 1 :A=A+22 : POKEA, 36 : POKEA+CL,4:POKECC, DD: 
DD=DD=-1 srem 112 
IFA>8010THEN155 srem 61 
GOTO6 5G s:rem 113 
POKEA+CL,1:POKEA, 32:A=A-22: IFPEEK(A)=42THENPOKECC+1 ,0:GOT 
0720 srem 174 
POKEA+CL, 4: POKEA, 36 : POKECC+1 , DD: DD=DD+1 : FORT=1T025 :NEXT:G 
OTO70@ srem 179 
POKEA, 32: POKEA-1 , 32 :A=A-22 : IFA< 7746 THENA=A+440 s:rem 1490 
POKEA+CL,@:POKE(A+CL) -1,@:POKEA,42 : POKEA-1 , 41 :POKECC+2,DD 
: DD=DD+1 : FORT=1T0O25 :NEXT srem 173 
IFA< 801 90ANDA> 7987 THENA=A+22 :POKEA, 36 : V=V+1 :Z=Z+1000:POKEA 
-22,32:POKEA-23 , 32 :GOTO8G srem 193 
GOTO72¢ :rem 110 


More Games 


888 FORT=1 TOF : POKEG , 32 :G=G-22 :NEXT: POKEG, 32 : POKEG-1,32:rem 90 
818 V=V-1 :Z=Z-19998 srem 249 
820 POKEA, 32 :POKEA+CL,1:A=A+22 : IFA>8164THENA=A-44@ :rem 178 
830 IFA>8@099ANDA<8932THENPOKEA+CL,4:POKEA, 35 :POKECC+2 ,@:I=I+2 


: L=L+2 : S=S+2 :GOTO8@ srem 93 
849 POKEA+CL,4:POKEA,35 :POKECC+2 ,DD: DD=DD=1 : FORT=1T025 :NEXT:G 
OTO82@ srem 188 
990 POKECC+4,@:POKECC+3 ,@:PRINT"{HOME}{3 DOWN}{6 RIGHT}GAME 
{2 SPACES }OVER{7 SPACES}HIT ANY KEY TO PLAY!" srem 183 
910 IFZ>HSTHENHS=Z srem 189 
920 IFV>HLTHENHL=V srem 168 
938 PRINT" {HOME} {RED}H.S.{BLK}";HS;"{LEFT} ":PRINT" {HOME} 
{DOWN} {RED}H.L.{BLK}";HL:"{LEFT} " srem 2083 
949 GETAS : 1 FAS=""THEN9I4G srem 93 
958 GOTO79 srem 62 
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“Spring Man” is a game for the unexpanded VIC. The objective is to climb 
up a series of ladders and platforms to reach your goal. There are six levels 
of difficulty. What makes the game even more complicated is that each of 
the platforms has five bouncing springs. The Spring Man must climb ladders 
and run across the platforms to reach the top. You score points through bonus 
points that are earned as each level is completed. 

On each level, bonus points tick away as time passes. Once all the 
points are gone, the Spring Man loses all his lives and the game ends. The 
Spring Man can lose a life in various ways—by falling off the ladders or 
platforms, by running out of time, or by being smashed by the springs. 

The joystick can make three different movements: left, right, and up 
(climbing the ladders). 

This is not an easy game to win. As a reward for your skillfull play, you 
win another life each time you achieve a new level (four lives are given per 
game). In addition, the game speeds up after the third level. 


Altering the Program 
To make the game easier, you may want to increase the value of N in line 
14. Also in line 14, you can change the variable CO to equal a higher num- 
ber by adding 16 for every level you want to advance. This number should 
never exceed 136. 


spring Man 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,”” Appendix C. 


5 POKE52,28:POKE56,28 :POKE51,@:POKE55,@:CLR: FORX=/424T07432:P 


OKEX , 9 :NEXT srem 208 

7 FORX=7168T07255 :READDA: POKEX , DA:NEXT: POKE36869, 255 srem 6 
14 PRINT"{CLR}":N=4:CO=56 srem 54 
15 PRINT" {HOME}{CLR}{RED}{3 DOWN}{2 SPACES }@@@@GECCAEEECEAGEEGE 
@@":PRINT" { DOWN} {2 SPACES} @@@@@GGGGCGEEGGeae” srem 202 

20 PRINT"{2 DOWN}{3 SPACES}@@@e@eeeeeaeaeeeeeea":PRINT"{2 DOWN} 
{3 SPACES }@@@@e@e@eeeeeeee" srem 130 

25 PRINT"{2 DOWN} @@@@G@GCQGGGAGGGAGA":PRINT"{2 DOWN} @@eeeeee 
@@e@ea@eeeee " srem 135 

38 PRINT"{2 DOWN} @@@CERCEEEEEGGGEEEGE srem 52 
40 PRINT" {HOME }";SPC(17)"{OFF}{WHT}E{RVS} —-";N;"{HOME} { DOWN}" 
SC srem 67 

45 IFN<=@THEN306 srem 177 
82 POKE36879,CO:LA=7745 srem 67 
84 IFCO>136THEN9I12 srem 46 
85 J2=37137 :33=37152 :J4=28 :J5=128 :J6=37154:POKEJ6,127:rem 187 
86 T=32:W=6 :G=3 :H=2 :K=1 :AA=23 : BB=21 :LL=22:P=197 srem 212 
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87 M=812@:POKE36878,15 :POKEM,10:S1=36877 :BO=9900 :S2=36874 :S3= 


36876 sCL=104 srem 155 
88 Fl=4:F2=5:F3=7 :F4=8:F6=19 :0=8 :sBI=100 :L1=290 :L2=16 :L3=19:S7= 
208 :CI=136 :S8=212 srem 139 
89 RI=INT(RND(1)*2) :A=7900 :C=8055 :B=8099 : D=7878 : E=7796 :L=239 
srem 195 
98 A=A+RI:C=C+RI :B=B-RI: D=D-RI: E=E-RI srem 4 
91 FORU=1TO11 srem 25 
92 POKEA,G:POKEB,W:POKEC,W:POKED,W:POKEE,W s:rem 12 
93 IFPEEK(M)=30RPEEK(M)=6THENS 30 :rem 208 
94 J=(PEEK(J3) ANDJ5)OR( PEEK(J2) ANDJ4) :J=ABS((J-BI)/4)-7 
srem 193 
95 IFJ=11THENPOKEM, T: M=M+K:POKEM,F1 :POKES2,S7:POKES2,0 
srem 254 


96 IFJ=3THENPOKEM, T: M=M-K: POKEM, F3 :POKES2,S7:POKES2,O:rem 212 
98 IFJ=6ANDPEEK(M)=KORPEEK (M)=HTHENPOKEM, T: M@=M-LL: POKEM, F6:PO 


KES2,S7:POKES2,0 srem 48 
99 POKEA,T: POKEB, T: POKEC,T:POKED,T: POKEE,T s:rem 22 
190 A=A+AA: B=B-AA: C=C-BB: D=D-AA: E=E-BB: POKES3,S8 srem 91 
182 IFM=LATHEN9S49 srem 5 
183 IFCO=CIANDPEEK(LA)=TTHENPOKELA,9Q srem 53 


104 PRINT" {HOME} {BLK}{3 DOWN}{2 SPACES}B{ DOWN} {LEFT }Af{ DOWN} 
{LEFT }A"; TAB(L1)" {DOWN} B{ DOWN} {LEFT }A{ DOWN} {LEFT }A" 


s:rem 177 
195 PRINT"{3 SPACES}B{ DOWN} {LEFT }A{ DOWN} {LEFT }A"; TAB(L2)" 
{ DOWN }B{ DOWN} {LEFT }A{ DOWN} {LEFT }A" srem 221 
106 PRINT" B{ DOWN} {LEFT }A{ DOWN} {LEFT }A"; TAB(L3)" {DOWN} B{ DOWN} 
{LEFT }A{ DOWN} {LEFT }A" srem 223 
199 POKEA,W:POKEB,G:POKEC,G:POKED,G:POKEE,G srem 11 
110 IFPEEK(M+LL)=TTHENN=N-1 :GOTO50@ srem 166 
111 IFPEEK(M)=30RPEEK(M)=6 THEN 30 srem 247 
112 J=(PEEK(J3)ANDJ5 )OR( PEEK(J2) ANDJ4 ) :J=ABS((J-BI)/4)-7 
srem 232 
113 IFJ=11THENPOKEM, T: M=M+K : POKEM, F2 :POKES2,S7:POKES2,0 
srem 38 
114 IFJ=3THENPOKEM, T:M=M-K: POKEM, F4:POKES2,S7 :POKES2,0 
srem 252 
115 IFJ=6ANDPEEK(M)=KORPEEK(M)=HTHENPOKEM, T: M=M-LL: POKEM, F6:P 
OKES2,S7:POKES2,0 srem 86 
119 IFCO<CLTHENFORI=1TOBI :NEXT srem 251 
120 POKEA,T:POKEB,T:POKEC,T:POKED,T:POKEE,T srem 53 
125 BO=BO-BI srem 175 
130 A=A~BB:B=B+BB:C=C+AA: D=D+BB:E=E+AA: POKES3 ,O srem 30 
135 IFM=LATHENS 44 srem ll 
148 PRINT" {HOME } {WHT} {RVS}"BO:1IFBO=<OTHENN=8:GOTO390 :rem 51 
150 NEXTU srem 42 
160 GOTO89 srem 65 
208 DATA255,24,36,66,255,0,9,0, 36,60, 36,60, 36,60, 36,60, 231,62 
,36,68,231,60,36,60 srem 117 
218 DATA254,56,84,84,84,84,56,254,3,3,12,18,152,1890,4,8,6,6,5 
2,73,22,48,72,132 srem 4@ 
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DATA® , 254,56,84,146,84,56,255,96,96,44,146,184,12,18,33,1 
92,192,48,88,25,38,32,16 srem 164 
DATA16,56,16,56,84,56,124,40,16,56,16,56,84,16,48,4@ 

srem 248 
POKES1 , 220 : FORL=15TO@STEP-1 : POKES4, L: FORM=1T0O10@ :NEXTM:NE 
XTL:POKES1 ,@:POKES4,@ srem 27 
IFN>=1ANDCO<=136THENL5 srem 46 
PRINT" {HOME}{18 DOWN}"SPC(5)"{RVS} {BLK} PLAY AGAIN?":POKES 
3, s:rem 148 
GETAS : I FAS="Y"THENS5 srem 71 
IFAS="N"THENSYS65 234 srem 14@ 
GOTO312 srem 193 
POKES3 ,@ :L=L—-1 : POKES3, L: POKEM, T: M=M+LL: POKEM,4 srem 154 
IF PEEK (M+LL)=@ ORM> 8185 THENPOKES3 ,@ :GOTO30@ srem 180 
GOTO59¢ srem 100 
EP=135 :FORI=1T0O106 : POKES3 ,@ :EP=EP+1 :POKES3 , EP :NEXT: POKES3 
O srem 211 
PRINT" {HOME}{18 DOWN} {RVS}{6 SPACES}GOOD GAME":FORJ=1TO1@ 
G00 :NEXT:SYS65234 srem 161 
POKES1 ,128 :FORI=1TO190 :NEXT: POKES] ,@:N=N-1:GOTO1L5 s:rem 46 
SC=SC+BO : CO=CO+16 : POKES3 ,@ :N=N+1:GOTOL5 s:rem 132 


Larry 
Volz 


Trench Wars 


“Trench Wars” is a fast-moving, reverse-scrolling action game of skill for the 
unexpanded VIC and a joystick. 

You are the pilot of a cargo ship that, in accordance with the great 
convention against weaponry, is unarmed. Your goal is to maneuver within 
the trench and pick up cargo while avoiding the kamikaze Aliens (they too 
are unarmed). You start with three men and a choice of nine levels. After 
every minute of play, the game goes to a docking subroutine which will add 
50 points to your score and advance you to the next level of difficulty. Do 
not hit the trench walls. Each cannister of cargo is worth 1 point, and you get 
an extra man every 150 points. 


The Program 


The play is rather simple, but it is trickier than it seems. The program reverse 
scrolls everything on the screen except the title and the player’s ship. It 
makes extensive use of the programmable characters. The number of charac- 
ters on the screen at any time is determined in line 58. The probability of a 
character being printed each line is determined by multiplying the level 
number by 10 percent. Eventually, there is a character on every line, and it 
seems that “joystick wrist’ becomes more dangerous than the Aliens. 

I have included a rather unusual explosion feature that makes use of the 
programmable characters. This lies within the subroutine starting at 8000. It 
first POKEs 30 (the player ship) into the screen location G and blanks out 
the space above it (G— 22: whatever was run into). It then randomly changes 
the statistics for this character and gives an illusion of flame. Next, 2 is POKEd 
into the same location, which is a previously compiled character to look like 
debris. All this done in conjunction with the white noise generator explosion 
gives an excellent effect. Unfortunately, the statistics for the player’s ship 
must then be recompiled (this explains the seemingly useless loop at 9999). 

The subroutine at 5000 checks to see if the joystick has been moved 
right or left only. JS(X+1,Y+1) will return either a 2 if the joystick is right 
or a 6 if the joystick is left. Once the operation is performed in line 5000, R 
will equal a number that is either positive or negative, and the movement is 
based on that number. 

If the ship goes far enough in either direction to hit the wall, it goes to 
the subroutine that starts at 8000 (this is determined in lines 5000 and 5005). 


Trench Wars 


For mistake-proof program entry, be sure to use “The Automatic Proofreader,” Appendix C. 


® GOSUB9999 :POKE36879,8 :AP=15@ srem 16 
1 PRINT" {CLR}{4 SPACES}TRENCH WARS" srem 158 
2 PRINT"DIFFICULTY (1-9)?" srem 29 
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3 GETAS :A=VAL(AS) : IFA=8ORA<@ORA>9THEN3 srem 73 
4 PRINT"{UP}{2@ SPACES}":PRINT"{UP} {RED} !!1!1!!1!1{1@ SPACES}!111 
ty" srem 218 
5 G=8898+9 :C=38818+9 :rem 32 
7 PM=3 s:rem 68 
8 POKE36878,5:POKE36877,255 srem 24 
18 DIM JS(2,2) :POKE37139,@:DD=37154 : PA=37137 :PB=37152:rem 160 
26 FORI=OTO2 :FORJ=8TO2 :READJS(J,1I) :NEXTJ,I srem 188 
49 TIS="9GGBSO" | srem 198 
49 PRINT" {HOME}{CYN}";PM;" TRENCH WARS";PP srem 35 
58 GOSUB9GG80 :PRINT" {HOME} {DOWN} {RED} 1111119 SERCH UPON te: 
-srem 
51 PRINT" { HOME} { DOWN} {LEFT} { INST}":POKE218,158 srem 90 
55 POKEG ,30:POKEC, INT(RND(1)*6+1) :rem 165 
56 R= INT( RND(1)*2) :R1=INT( RND(1)*200+1) : IFR=OTHENZS$=" {WHT }" 
srem 183 
57 IFR=1THENZS="{BLU}" srem 8 
58 IFR1>100-(A*1@)THENPRINT" {HOME}{2 DOWN}";TAB(INT(RND(1) *9+ 
6)):ZS; CHRS(R+64) srem 195 
59 POKEG,32 srem 117 
60 IFJS(X+1,Y+1)<>8THENGOSUB599@ :rem 158 
65 IFPEEK(G—-22) <>32THEN89OG srem 30 
76 IFVAL(TIS) >108THENGOSUB59@ srem 254 
88 GOTO52 srem 6 
188 POKE36878,15:POKE36874,24@ : POKE36878,5: POKE36874,0:rem 68 
118 IFPP>APTHENGOSU B20 :GOTO49 srem 177 
12@ RETURN srem 115 
206 AP=AP+15@:PM=PM+1 :FORT=1TO2 : POKE36877,@:POKE36878,15 
srem 86 
218 POKE36876 , 220: FORH=1TO2090 :NEXT : POKE36876 , 248 : FORH=1TO20@: 
NEXT: POKE36876,@ srem 166 
220 NEXTT: POKE36878,5:POKE36877, 255 : RETURN :rem 91 
5@@ DOS=";<{DOWN}{2 LEFT}=>" :rem 10 
581 POKEG , 32 :G=8998+9 : C=38818+9 srem 194 
585 FORT=1TO20 srem 72 
586 PRINT" { HOME} { DOWN} {LEFT} {INST}":POKE218,158 srem 143 
587 POKEG,3@:POKEC,6 srem 175 
510 PRINT" {DOWN} {RED} !11111{9 SPACES} !!iitrr" :rem 65 
511 FORH=1TO5Q9@ :NEXT srem 181 
515 POKEG, 32 srem 162 
5206 NEXTT srem 42 
548 PRINTTAB(9);DOS :rem 121 
558 FORT=1TO12 s:rem 73 
556 PRINT" {HOME} { DOWN} {LEFT} { INST}":POKE218,158 :rem 148 
557 POKEG ,30:POKEC,6 srem 1890 
560 PRINT" {DOWN} {RED}!I!I!1!111{9 SPACES}!I!lliii" srem 70 
571 FORH=1T0O50:NEXT srem 187 
575 POKEG,32 srem 168 
580 NEXTT srem 48 
598 POKEG, 38:POKE36878,15 :POKE36877 ,@ :FORT=1TO2 srem 58 
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698 POKE36876, 240 :FORH=1TO1598 :NEXT: POKE36876,8:FORH=1TO1@ 


srem 2064 
610 NEXTH,T:PP=PP+5@ : POKEG, 32 : POKE36878,5:POKE36877,255 
s:rem 64 
620 FORT=1TO7:PRINT" {HOME} { DOWN} {LEFT} { INST}":POKE218,158 
srem 73 
625 PRINT" {DOWN} {RED} ILILLL1{9 SPACES}IIliliii" srem 72 
626 FORH=1TO5@:NEXT srem 188 
630 NEXTT srem 44 
635 IFPP>APTHENGOSUB20@ srem 221 
1988 PRINT" {HOME}{4 SPACES}TRENCH WARS{7 SPACES}":TIS="G9G0OQG 
"sA=A+] srem 151 
1801 RETURN srem 162 
58908 R=JS(X+1,Y+1)-4:I FR<GANDG+1>=8998+15 THENSOGOG :rem 17 
5005 IFR>@ANDG-1 <=89898+5 THEN8OOG srem 58 
5010 IFR<@THENG=G+l1 :C=C+1 :RETURN :rem 226 
5028 IFR>@THENG=G-1 :C=C-1 : RETURN srem 227 
5830 RETURN srem 168 
8000 REM BOOM srem 217 
80198 IFPEEK(G-22)=0 THENPP=PP+1 :GOSUB1O@:GOTO49 srem 70 
8820 POKEG , 38:FORT=1L5TO@STEP-3 : POKE36878,T: POKE36877,255 
:rem 143 
8021 POKEG—-22, 32 :FORX=7168+( 8*38)T0O7168+(8*38)+7:POKEX, INT( RN 
D(1)*256) :NEXTX :rem 115 
8022 NEXTT:POKE36878,5:POKEG, 2 srem 71 
8835 RESTORE: FORZ=7168+(8* 38) TO7168+( 8* 30)+7:READZZ:POKEZ, ZZ: 
NEXTZ srem 95 
8836 POKEG, 32:G=8098+9 :C=38818 +9 srem 253 
8998 PM=PM-1:IFPM=@THENPRINT"{CLR}{7 DOWN}{3 SPACES}GAME OVER 
":PP:POKE36877,@ srem 145 
8991 IFPM=0 THENFORT=1T0O19900 :NEXT: RUN srem 88 
8999 POKEG46 ,6:GOTO49 srem 244 


9600 POKEDD,127:S3=-((PEEK(PB)AND128)=@) :POKEDD,255 :rem 174 
9918 P=PEEK( PA) :S1=—( (PAND8)=@) :S2=( (PAND16)=@) :S@=((PAND4)=@ 
) 


srem 229 
9920 FR=-((PAND32)=@) :X=S2+S3 :Y=S0+S1 :RETURN s:rem 133 
9999 PRINT" {CLR}":FORT=1TO8: READZ$ :NEXT :rem 83 
1GGODB POKES 2 , 28 : POKE56, 28 :FORI=7168T07679:POKEI , PEEK( I+25609) 
: NEXT: POKE36869, 255 :rem 3 

10928 FORC=7168+(8*30)TO7168+( 8*30)+7:READA:POKEC,A:NEXT 
:rem 182 
19038 FORC=7432T0O7432+7 : READA: POKEC, A:NEXT s:rem 41 
19848 FORC=7168+16T0O7168+16+7 :READA:POKEC,A:NEXT s:rem 9G 
19856 FORC=7168+8T07168+15 : READA: POKEC, A:NEXT :rem 201 
19060 FORC=7168TO7 168+7 : READA: POKEC,A:NEXT srem 56 

18072 FORC=7 168+( 8*59) TO7168+( 8*59) +7: READA: POKEC, A: NEXT 
:rem 209 

19G80 FORC=7168+( 8* 68) TO7168+( 8* 69) +7 s READA: POKEC, A: NEXT 
srem 194 

19098 FORC=7168+(8*61)T07168+( 8*61)+7:READA:POKEC,A:NEXT 
srem 197 
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19180 


19998 
19999 
28008 
20016 
20820 
200638 
28048 
26058 
20060 
200870 
29080 
29999 
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FORC=7 168+( 8*62)T07168+( 8*62)+7 :READA: POKEC, A:NEXT 


PRINT" {CLR}":RETURN 
DATA16,16,16,84,186,146,186,186 
DATAI16,16,16,84,186,146,186,186 
DATA255,255,255,255,255,255,255,255 
DATA129,42,68,145,4,100,19,16@ 
DATA46 ,198,108,16,56,84,16,16 
DATA126,126,126,60,126,126,126,98 
DATA16,56,16,16,25,23,18,23 
DATAS, 28,8,8,152, 232,200,232 
DATA23,18,23,25,16,16,56,16 
DATA232, 200, 232,152,8,8, 28,8 
DATA7 ,@,1,6,8,2,5,4,4 


:rem 
: rem 
- rem 


191 
146 
124 


s:rem 89 
srem 33 
:rem 9 


~rem 
:rem 
> rem 
srem 
; rem 
7 rem 
:rem 


229 
112 
127 
176 
129 
178 
181 
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Beginner's Guide to 
Typing In Programs 


| What Is a Program? 

A computer cannot perform any task by itself. Like a car without gas, a com- 
puter has potential, but without a program, it isn’t going anywhere. Most of 
the programs published in this book are written in a computer language 
called BASIC. BASIC is easy to learn and is built into all VIC-20s. 


| BASIC Programs 


Computers can be picky. Unlike the English language, which is full of ambi- 
guities, BASIC usually has only one right way of stating something. Every 
letter, character, and number is significant. A common mistake is substituting 
a letter such as O for the numeral 0, a lowercase | for the numeral 1, or an 
uppercase B for the numeral 8. Also, you must enter all punctuation marks, 
such as colons and commas, just as they appear in the book. Spacing can be 
important. To be safe, type in the listings exactly as they appear. 


Braces and Special Characters 
The exception to this typing rule is when you see the braces, such as 
{DOWN}. Anything within a set of braces is a special character, or charac- 
ters, that cannot easily be listed on a printer. When you come across such a 
special statement, refer to ‘‘How to Type In Programs” (Appendix B). 


About DATA Statements 


Some programs contain a section, or sections, of DATA statements. These 
lines provide information needed by the program. Some DATA statements 
contain actual programs (in machine language), while others may contain 
graphics codes. These lines are especially sensitive to errors. 

If a single number in any one DATA statement is mistyped, your ma- 
chine could lock up, or crash. The keyboard and RUN/STOP key may seem 
dead, and the screen may go blank. But don’t panic. No damage has been 
done. To regain control, turn off your computer and then turn it back on. 
This will erase whatever program was in memory, so always save a copy of 
your program before you run it. If your computer crashes, you can load the 
program and look for your mistake. 

Sometimes a mistyped DATA statement will cause an error message 
when the program is run. The error message may refer to the program line 
that READs the data. However, the error is still in the DATA statements. 
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| Get to Know Your Machine 
You should familiarize yourself with your computer before attempting to 
type in a program. Learn the statements you use to store and retrieve pro- 
grams from tape or disk. You'll want to save a copy of your program so that 
you won't have to type it in every time you want to use it. Learn to use your 
machine’s editing functions. How do you change a line if you made a mis- 
take? You can always retype the line, but you should at least know how to 
backspace. Do you know how to enter reverse-video, lowercase, and control 
characters? It’s all explained in your manual. 

In order to insure accurate entry of each program line, we have included 
a checksum program. Please read ‘“The Automatic Proofreader” (Appendix 
C) before typing in any of the programs in this book. 


A Quick Review 
1. Type in the program a line at a time in order. Press RETURN at the end of 
each line. Use the INST/DEL key to correct mistakes. 
2. Check the line you’ve typed against the line in the book. You can check 
the entire program again if you get an error when you run the program. 


Appendix 


How fo Type In 
Programs 


Many of the programs in this book contain special control characters (for ex- 
ample, cursor controls, color keys, and reverse video). To make it easy to 
know exactly what to type when entering one of these programs into your 
computer, we have established the following listing conventions. 

Generally, VIC-20 program listings will contain words within braces 
which spell out any special characters: {DOWN} would mean to press the 
cursor-down key. {5 SPACES} would mean to press the space bar five times. 

To indicate that a key should be shifted (hold down the SHIFT key while 
pressing the other key), the key would be underlined in our listings. For ex- 
ample, S would mean to type the S key while holding the SHIFT key. This 
would appear on your screen as a heart symbol. If you find an underlined 
key enclosed in braces (for example, {10 N}), you should type the key as 
many times as indicated. In that case, you would enter ten shifted N’s. 

If a key is enclosed in special brackets, K>], you should hold down the 
Commodore key while pressing the key inside the special brackets. (The Com- 
modore key is the key in the lower-left corner of the keyboard.) Again, if the 
key is preceded by a number, you should press the key as many times as 
necessary. 


Keyword Abbreviations 
In order to get as much as possible into an unexpanded VIC-20, many pro- 
grammers pack program lines by leaving out spaces wherever possible and 
by using keyword abbreviations when writing the program. One VIC pro- 
gram line (a logical line) can have a maximum of 88 characters including 
spaces—four screen (physical) lines. By using abbreviations a programmer 
can save memory by putting more code on a logical line than would be pos- 
sible if each keyword were spelled out. 

The listings in this book contain all the keywords spelled out. If you try 
to enter a program line with more than 88 characters, the line will not be 
saved in the VIC’s memory completely, and the program will not function 
correctly. In order to enter lines that otherwise would be too long, it’s nec- 
essary to use keyword abbreviations. Below is a list of some of the more fre- 
quently used keywords with their abbreviations; for a complete list see 
Appendix D of Personal Computing on the VIC-20, the manual that came with 
the computer. 
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Keyword Abbreviation 


CHR$ C SHIFT-H 
DATA D SHIFT-A 
FOR F SHIFT-O 
NEXT N SHIFT-E 
PEEK P SHIFT-E 
POKE P SHIFT-O 
PRINT ? 

RETURN _ RE SHIFT-T 
TAB( T SHIFT-A 
THEN T SHIFT-H 

Quote Mode 


You know that you can move the cursor around the screen with the CRSR 
keys. Sometimes a programmer will want to move the cursor under program 
control. That’s why you see all the {LEFT}’s, {HOME}’s, and {DOWN}’s in 
our programs. The only way the computer can tell the difference between di- 
rect and programmed cursor control is the quote mode. 

Once you press the quote (the double quote, SHIFT-2), you are in the 
quote mode. If you type something and then try to change it by moving the 
cursor left, you'll only get a bunch of reverse-video lines. These are the sym- 
bols for cursor left. The only editing key that isn’t programmable is the 
INST/DEL key; you can still use INST/DEL to back up and edit the line. 
Once you type another quote, you are out of quote mode. 

You also go into quote mode when you INSerT spaces into a line. In any 
case, the easiest way to get out of quote mode is just to press RETURN. 
You'll then be out of quote mode and can cursor up to the mistyped line and 
fix it. 

In order to insure accurate entry of each program line, we have included 
a checksum program. Please read “The Automatic Proofreader’ (Appendix 
C) before typing in any of the programs in this book. 

Refer to the following table when entering cursor and color control keys: 
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When You When You 

Read: Press: See: Read: Press: See: 
cin} [ssieT][ cuRone | (GRN} Ps 
{ HOME} CLR/HOME El {BLU} cre. |{ 7 | ES 
(UP) (YEL} rt 
{DOWN} { Fl } a 
oe ioe (a)  (swr|[ a | 
{RIGHT} +— CRSR —> (F3) [8 | a 
is) [om] rT = & 
{ OFF} cTRL || 0 ss { F5 } | 6 | Fa 
ceux} [eve [1 ] {Fs } 6) 
{WHT} fcrre|| 2 | fy { F7} Ra 
{RED} cre. |{ 3 | { FB } (7 | 
{CYN} crt |[ 4 | Pe “ ae 
{PUR} | CTRL ) | 5 | oa ale SHIFT ped 
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The Automatic 
Proofreader 


Charles Brannon 


“The Automatic Proofreader” will help you type in program listings without 
typing mistakes. It is a short error-checking program that hides itself in 
memory. When activated, it lets you know immediately after typing a line 
from a program listing if you have made a mistake. Please read these instruc- 
tions carefully before typing any programs in this book. 


Preparing the Proofreader 

1. Using the listing below, type in the Proofreader. Be very careful when 
entering the DATA statements—don’t type an | instead of a 1, an O in- 
stead of a 0, extra commas, and so forth. 

2. Save the Proofreader on tape or disk at least twice before running it for the 
first time. This is very important because the Proofreader erases part of it- 
self when you first type RUN. 

3. After the Proofreader is saved, type RUN. It will check itself for typing er- 
rors in the DATA statements and warn you if there’s a mistake. Correct 
any errors and save the corrected version. Keep a copy in a safe place— 
you'll need it again and again, every time you enter a program from this 
book, COMPUTE!’s Gazette, or COMPUTE! magazine. 

4. When a correct version of the Proofreader is run, it activates itself. You are 
now ready to enter a program listing. If you press RUN/STOP-RESTORE, 
the Proofreader is disabled. To reactivate it, just type the command SYS 
886 and press RETURN. 


Using the Proofreader 
Most of the listings in this book have a checksum number appended to the 
end of each line, for example, :rem 123. Don’t enter this statement when typing 
in a program. It is just for your information. The rem makes the number 
harmless if someone does type it in. It will, however, use up memory if you 
enter it, and it will confuse the Proofreader, even if you entered the rest of 
the line correctly. 

When you type in a line from a program listing and press RETURN, the 
Proofreader displays a number at the top of your screen. This checksum num- 
ber must match the checksum number in the printed listing. If it doesn't, it 
means you typed the line differently from the way it is listed. Immediately 
recheck your typing. Remember, don’t type the rem statement with the 
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checksum number; it is published only so that you can check it against the 
number which appears on your screen. 

The Proofreader is not picky about spaces. It will not notice extra spaces 
or missing ones. This is for your convenience since spacing is generally not 
important. But occasionally proper spacing is important, so be extra careful 
with spaces. 

Due to the nature of a checksum, the Proofreader will not catch all er- 
rors. Since 1 + 3 + 5 = 3 + 1 + 5, the Proofreader cannot catch errors of 
transposition. Thus, the Proofreader will not notice if you type GOTO 385 
where you mean GOTO 835. In fact, you could type in the line in any order 
and the Proofreader wouldn’t notice. The Proofreader should help you catch 
most typing mistakes, but keep this in mind if a program that checks out 
with the Proofreader still seems to have errors. 

There’s another thing to watch out for: If you enter the line by using 
abbreviations for commands, the checksum will not match up. But there is a 
way to make the Proofreader check it. After entering the line, LIST it. This 
eliminates the abbreviations. Then move the cursor up to the line and press 
RETURN. It should now match the checksum. You can check whole groups 
of lines this way. Do not use this method if the line required the use of abbrevi- 
ations in order to fit within the 88-character limit. 


special Tape SAVE Instructions 
When you’re through typing in a listing, you must disable the Proofreader 
before saving the program on tape. Disable the Proofreader by pressing 
RUN/STOP-RESTORE (hold down the RUN/STOP key and sharply hit the 
RESTORE key). This procedure is not necessary for disk SAVEs, but you must 
disable the Proofreader this way before a tape SAVE. 

SAVE to tape erases the Proofreader from memory, so you'll have to 

load and run it again if you want to type another listing. SAVE to disk does 
not erase the Proofreader. 


Hidden Perils 


The Proofreader’s home in memory is not a very safe haven. Since the cas- 
sette buffer is wiped out during tape operations, you need to disable the 
Proofreader with RUN/STOP-RESTORE before you save your program. This 
applies only to tape use. Disk users have nothing to worry about. 

Not so for VIC-20 owners with tape drives. What if you type in a pro- 
gram in several sittings? The next day, you come to your computer, load and 
run the Proofreader, then try to load the partially completed program so that 
you can add to it. But since the Proofreader is trying to hide in the cassette 
buffer, it is wiped out! 
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What you need is a way to load the Proofreader after you’ve loaded the 
partial program. The problem is, a tape LOAD to the buffer destroys what it’s 
supposed to load. 

If you intend to type in a program in more than one sitting or wish to 
make a safety SAVE, follow this procedure: 


1. Load and run the Proofreader. 
2. Disable it by pressing RUN/STOP-RESTORE. 
3. Type the following three lines in direct mode (without line numbers): 


A$="PROOFREADER.T":BS="{1@8 SPACES}":FOR X=1 TO 4:A 
S=AS+BS:NEXT X 


FOR X=886 TO 1018:AS=AS$+CHRS(PEEK(X)):NEXT X 


OPEN 1,1,1,A$:CLOSE 1 


After you enter the last line, you will be asked to press RECORD and 
PLAY on your cassette recorder. Put this program at the beginning of a new 
tape. 

You now have a new version of the Proofreader. Turn your computer off 
and on, then load the program you were working on. Put the cassette 
containing the Proofreader into the tape unit and type: 


OPEN1:CLOSE1 


You can now start the Proofreader by typing SYS 886. To test this, 
PRINT PEEK (886) should return the number 173. If it does not, repeat the 
steps above, making sure that A$ (‘“PROOFREADER.T”) contains 13 charac- 
ters and that BS contains 10 spaces. 

You can now reload the Proofreader into memory whenever LOAD or | 
SAVE destroys it, restoring your personal typing helper. 


The Automatic Proofreader 


198 PRINT" {CLR}PLEASE WAIT...":FORI=886TO1918 : READA: CK=CK+A: P 
OKEI , A:NEXT 
118 IF CK<>17539 THEN PRINT"{DOWN}YOU MADE AN ERROR": PRINT"IN 
DATA STATEMENTS. ":END 

128 SYS886:PRINT"{CLR}{2 DOWN}PROOFREADER ACTIVATED.":NEW 

886 DATA 173,936,803, 201,1508,288 

892 DATA 001,996,141,151,003,173 

898 DATA 937,8003,141,152,003,169 

904 DATA 158,141 ,8036,003,169,9083 

918 DATA 141,037,9003,169,000,133 

916 DATA 254,996,032,087,241,133 

922 DATA 251,134,252,132,253,0888 

928 DATA 201,813,248,017,201,032 

934 DATA 240,005,024,1@1,254,133 


994 


1990 DATA 832,205,221,169,032,832 
1996 DATA 219,255,032,218,255,173 
1912 DATA 251,003,133,214,076,173 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


254,165,251,166,252,164 
253,8940,8996,169,9813,032 
218,255,165,214,141,251 
903,206, 251,0803,169,990 
133,216,169,819,932,21@ 
255,169,8018,8032,219,255 
169,8958,8032,210,255,166 
254,169,008,133,254,172 
151,003,192,087,208, 006 
932,2805,189,976, 235,083 


1818 DATA 9683 
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To order your copy of the VIC-20 Collection Disk call our 
toll-free US order line: 1-800-334-0868 (in NC call 919-275- 
9809) or send your prepaid order to: 


VIC-20 Collection Disk 
COMPUTE! Publications 
P.O. Box 5058 
Greensboro, NC 27403 


All orders must be prepaid (check, charge, or money order), NC 
residents add 4.5% sales tax. 


Send 
Copy. 


copies of the VIC-20 Collection Disk at $12.95 per 


Subtotal $ 

Shipping & Handling: $2.00/disk $ 
Sales tax (if applicable) $ 

Total payment enclosed § 


O Payment enclosed 
Charge oO Visa g MasterCard go American Express 


PROC T eNO 5 ci ee EO, DGITO 

Required 
DS | 6g) = pe ee a a 
PCOS Saas ee ee st 
CN ea OIE at ID 


Please allow 4-5 weeks for delivery. 
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If you’ve enjoyed the articles in this book, you'll find 
the same style and quality in every monthly issue of 
COMPUTE!’s Gazette for Commodore. 


For Fastest Service 
Call Our Toll-Free US Order Line 


800-334-0868 


In NC call 919-275-9809 


COMPUTE!’s Gazette 


P.O, Box 5058 
Greensboro, NC 27403 


My computer is: 
DO Commodore 64 OVIC-20 0 Other 


0 $24 One Year US Subscription 
0 $45 Two Year US Subscription 
0 $65 Three Year US Subscription 
subscription rates outside the US: 
0 $30 Canada 

D0 $65 Air Mail Delivery 

0 $30 International Surface Mail 


Name 

Address 

City state Zip 
Country 


Payment must be in US funds drawn on a US bank, international 
money order, or charge card. Your subscription will begin with the 
next available issue. Please allow 4-6 weeks for delivery of first is- 
sue, Subscription prices subject to change aft any time. 


1) Payment Enclosed Oi Visa 
0 MasterCard 1 American Express 


Acct. No. Expires / 


(Required) 


The COMPUTE!’s Gazette subscriber list is made available to carefully screened 
organizations with a product or service which may be of interest to our readers. If you 
prefer not to receive such mailings, please check this box 0. 

758199 


“SERRATE ae era ET Sf UNI 


COMPUTE! Books 
Ask your retailer for these COMPUTE! Books or order 
directly from COMPUTE!. 


Call toll free (in US) 800-334-0868 (in NC 91 9-275-9809) 
or write COMPUTE! Books, P.O. Box 5058, Greensboro, 


NC 27403. 


Quantity 


Commodore 64 and VIC-20 (94-9) $ 9.95 
______. Commodore SpeedScript Book Disk $12.95 
—___—. COMPUTE!’s Commodore 64/128 Collection 

(97- $12.95 
—_____ All About the Commodore 64, Volume Two 

(45-0) $16.95 
—____ All About the Commodore 64, Volume One 

(40-X) $12.95 
—____ Programming the Commodore 64: 

The Definitive Guide (50-7) $19.95 
—______. COMPUTE!’s Data File Handler for the 

Commodore 64 (86-8) $12.95 
____. Kids and the Commodore 64 (77-9) $12.95 
—______. COMPUTE!’s Commodore Collection, 

Volume 1 (55-8) $12.95 
—______. COMPUTE!’s Commodore Collection, 

Volume 2 (70-1) $12.95 
—_____. COMPUTE!’s VIC-20 and Commodore 64 

Tool Kit: BASIC (32-9) $16.95 
______ Programming the VIC (52-3) $24.95 __ 
______ VIC Games for Kids (35-3) $12.95 
———_—  COMPUTE!’s First Book of VIC (07-8) $12.95 
——___—  COMPUTE!’s Second Book of VIC (16-7) $12.95 
———  COMPUTE!’s Third Book of VIC (43-4) $12.95 
—____. Mapping the VIC (24-8) $14.95 
————  COMPUTE!’s VIC-20 Collection (007) $12.95 


Title 
Speedscript: The Word Processor for the 


Price” 


Total 


"Add $2.00 per book for shipping and handling. 
Outside US add $5.00 air mail or $2.00 surface mail. 
NC residents add 4.5% sales tax. 


Shipping & handling: $2.00/book 
Total payment 


All orders must be prepaid (check, charge, or money order). 
All payments must be in US funds, 
1 Payment enclosed. 

Charge OVisa OMasterCard O American Express 


Acct. No. Exp. Date 
Name 

Address 

City state Zip 


“Allow 4-5 weeks for delivery. 
Prices and availability subject to change. 
Current catalog available upon request. 
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Index 


Al. See artificial intelligence 
aligning numbers 20 
“Alternating’’ program 40 
analog/digital converter 87 
AND# ML instruction 70 
ANDZ ML instruction 70 
arcade games 38 
arcade-style subroutines 38-40 
array 65 
artificial intelligence 220-24 
ASLA ML instruction 70 
assembler 48 
bar graph 130-31 
“Base Defense” program 239-40 
BASIC 
keywords 54-55 
start of, changing 5 
“Battleship” program 199-202 
“Big Screen Print” program 62-63 
bit 3 
bitmapping 91, 128, 254 
“Bitmapping Pixel’’ program 128-29 
block of memory, saving to tape 13-14 
“Bomber Squadron” program 241-45 
‘“Boogieball”” program 296-99 
border color 135 
chaining programs 24-25 
“Challenger One” program 273-75 
character sets, memory locations for control of 6 
“Characters” program 79 
“Chopper Lift” program 315-17 
CLC ML instruction 70 
CLOSE command 12 
CMP ML instruction 70 
CMP# ML instruction 70 
“Code Game” program 189-90 
Commodore printer, ‘“Write-On” and 155 
compressed BASIC keywords 54-56 
“Compressed List’” program 56 
COMPUTE!’s First Book of VIC 50 
COMPUTE!’s Mapping the VIC 72 
COMPUTE!s Second Book of VIC 41 
COMPUTE!’s VIC-20 and Commodore 64 Took Kit 
72 
custom characters 5-8, 38, 78-80, 91, 178-79, 
241 
DATA statement 158, 327 
DECZ ML instruction 70 
“Diamond Maze” program 215-16 
disassembler 48-49, 51-52 
“Disassembler”’ program 51-52 
disk 10, 44-45 
dummy records, relative files and 12 
“Dungeon Escape” program 286-90 


“8K Setup” program (VIC graph) 93 

“Example 1” program (multiprocessing) 61 

“Example 2”” program (multiprocessing) 61 

“Ex-blast’’ program 246-48 

expansion cartridge 3, 5, 46, 120, 135, 138, 
167-68, 254, 264, 279, 300 

“Experiment, The” program 9 

“Fasplot’’ program 82-83 

1541 model disk drive 10 

fire button 34 

“Flag” program 136 

“Flipper” program 203-4 

FOR-NEXT loop 23, 130 

game paddles 87-90, 251 

GET statement 21 

“Graph Expanded” program (VIC Graph) 93 

graphic pictures 105-7 

graphics characters, mixing with text 9 

“Graph” program 130-34 

“Graph Unexpanded” program (VIC Graph) 
93-94 

“Heist” program 211-14 

““Hide-N-Seek”’ program 312-14 

high VIC 5, 6 

“Hyper Ballshot’’ program 251-53 

input 18-22 

IRQ interrupt 57, 58, 159 

JMP ML instruction 70 

“Joyfast’”” program 82 

joystick 34, 36, 81-82, 178, 185, 195, 211, 215, 
217, 235, 249, 258, 267, 300, 303, 312, 321 

KernaL 41, 48 

“Keytest” program 50, 52-53 

keywords, BASIC 54-55 

“Lap Racer” program 178-81 

“Laser Command” program 254-57 

“Laser War’ program 270-72 

LDA ML instruction 49, 70 

LDX# ML instruction 70 

LDXY ML instruction 70 

“Light Cycles’’ program 300-302 

LOAD command 13-16 

logical file number 10, 11 

logical line 54 

“Logicolor’” program 191-94 

low VIC 5, 6 

LSRA ML instruction 70 

LSR ML instruction 70 

machine language 70-73 

Machine Language for Beginners 71 

‘Maneuver’ program 195-98 

“Marquee Demo” program 159-61 

masking 21-22 

“Mate” program (Music Mate) 117-19 

mazes 220-24 
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maze strategies 221-23 
“Meltdown” program 217-19 
memory address, loading to 1-15 
memory expansion 5 
memory pointers 5 
‘Message Board” program 162-63 
“Meteors” program 249-50 
‘‘Microassembler” 70-77 
“Move X” program 34-35 
“Moving” program 40 
multiprocessing 57-61 
‘“Multiprocess’”” program 60-61 
music 115-27 
“Music Mate’’ program 116 
‘Music Maker’ program 140-48 
“Music Mate” system 115-19 
“Music Maker’ system 138-49 
“Music Player’ program 148-49 
OPEN command 10 
ORAZ ML instruction 70 
output 18-22 
“Paddle Graphics” program 87-90 
“Page Flip’ program 3-4 
“Piano Player’ program 120-27 
“Pilot’’ program 266-69 
“Place Your Bet” program 293-95 
“Poker Challenge” program 205-8 
precision, arithmetical 18-20 
printer 46, 62-63 
PRINT statement 24 
PRINT USING statement 18 
program listing conventions 329-31 
programmable characters. See custom characters 
Programming the 6502 72 
Programming the VIC 31 
quote mode 330 
“Rainbow Border’ program 136-37 
raster beam register 9 
“Rats!” program 220-32 
READ statement 328 
relative files 10-12 
“Rescue Mission” program 303-5 
rounding off numbers 19-20 
“S.X. Demo” program 137 
SAVE command 15-17 
saving memory 23-25 
“Scavenger Hunt” programs 306-11 
screen 9, 58-59, 62-63 
and border color register 135 
dump, high-resolution 46 
management 3, 6, 81-83 
memory 5-8 
pages 3 
save 41-43 
split 9, 58-59 
“Screen Print II’’ program 62-63 
“Screen Saves” program 42-43 
“Scroll Demo” program 30 
scrolling 29-30 
“Scroll Left’ program 30 
“Scroll Right” program 20-30 


secondary address 15 
SED ML instruction 70 
serial printer 153 
“Sevicog” program 264-65 
6502 Assembly Language Programming 71 
“Slot Machine” program 185-88 
“Space Blockade” program 258-60 
“Space Corridor” program 235-38 
“Space Mission”’ program 279-85 
“Special Effects’ program 79-80 
“Speed Demon” program 173-77 
“Speed Stick Demo’”’ program 37 
“Speed Stick” program 36-37 
split screen 9, 58-59 
“Spring Man” program 318-20 
“Sprite Demo” program 104 
“Sprite Loader’ program 101-4 
sprites 95-104 
defining 96-100 
grid 99 
registers 97 
“Strike Three’ program 167-72 
string variables 23-24 
strings 158 
STX ML instruction 70 
“Super Dump” program 46-47 
Super Expander cartridge 46, 135, 254, 264, 300 
checking for presence of 254 
tape 13-17, 31-33, 153, 333 
“Tape Catalog” program 66-69 
tape header 31-32 
tape programs 
cataloging 64-69 
copying to disk 44 
“Tape Search” program 31-33 
“Tape to Disk” program 44-45 
text, mixing with graphics characters 9 
text adventures 286-88 
“Torpedo-8” program 261-63 
“Trench Wars” program 321-24 
typing in programs 327-31 
unexpanded VIC 29, 31, 34, 57, 92, 95, 153, 158, 
162,.167,.173,,178, 185, 199,205; -215;-217, 
235, 239, 241, 246, 249, 251, 258, 261, 270, 
273, 279, 293, 296, 303, 306, 312, 315, 318, 
321 
USR function 81-82 
variables 23-24 
VERIFY command 16 
Versatile Interface Adapter. See via 
VIA 36 
VIC chip 6, 62, 91 
“VIC Draw McGraw” program 105-14 
“VIC Graph” utility 91-94 
“VIC Marquee” program 158-61 
“VIC Set Demo” program 8 
“VIC Set” program 8 
VIC-20 Programmer's Reference Guide 71 
Video Interface Chip. See VIC chip 
WAIT statement 9 
word processor 153-57 
“Write-On” word processor 153-57 


on your VIC? Maybe you just b: 
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e ‘ore-published Bnicies and 


ae IC-20 user. COMPUTE!’s VIC-20 
Golbetion isa porpout ef tutor is applications, and games 
collected over the | E Sshpd years: 


Do you like to pian gr Ther you ‘Il enjoy maze games like 
“Heist” and “Meltdown” ge you to think quickly. If logic 
games are your eee. Seal you'l ‘find fog color” and “Maneuver” 
intriguing puzzlers. And of course we've included adventure and _ 
arcade-style games to amuse and entert 

Do you need a simple word processor 5 a way to create sprites 

bc ght ess bait and bes a aes 
and easy way fo transfer all yOur rogre 
find these and much more in COMPUT 


sample of what's inside: rect a | *) iss ae 
-“Message Board,” an easy way to create a message that will scroll 
“€cross your screen while gee program is running i 
e ‘Music Mate,’’ a music gene 


° A disassmbler to help you turn num e s into readable « code | 
e Nearly three dozen games, most of which run on an unexpanded VIC 
° Techniques to create your own character set 

Sic lane cagn tala a oes ograms running on your VIC at the 


same time 
e Programs that let you you 1toa printer — 


All the programs in COMPUTE!’s. VIC-20 Collection are ready to 
type in and use. And to make program entry as mistake-proof as pos- 
sible, we’ve included a program that checks your typing. Many of the 
sae in this book are beginner-level programs. While they lack the 


istication of professional ‘software, they Boe hours of 
sce nt and tutorial ¢ opportunities f odification and 
enhancement. 
ISBN 0-87455-007-6 


